Nova variáveis para OPER

[jpablofernandez]

Pull Request Description

Novas variáveis para OPER

Type of Change

• Bug fix
• Hot fix
• New feature
• Improvement to existing functionality
• Code refactoring
• Code optimization
• Other: ______

Testing and Quality

• Code was written following MONAN’s DTN-01 (Coding Standard)
• Compilation and execution tests of the model were executed
• Test with the debug flag was executed
• Results are reproducible with the default configuration

Scientific Impact

None

[joaomas]

Tests Pool

Run date 00Z: 2024042000Z
Run date 12Z: 2026020912Z

Egeon: 24km

Test Compile: OK
Test 264h FCST 00Z: OK
Test 120h FCST 12Z: OK
Test Compile with debug flag: OK
Test 6h FCST 00Z with debug flag (all steps include static): ERROR

model.bash.e

At line 140 of file mpas_stability_indices.F
Fortran runtime error: Index '0' of dimension 1 of array 'p' below lower bound of 1

Error termination. Backtrace:
#5  0x88c235 in __mpas_atm_diagnostics_manager_MOD_mpas_atm_diag_compute
	at /mnt/beegfs/joao.messias/pr_pablo_git/scripts_CD-CT/sources/MONAN-Model_develop/src/core_atmosphere/diagnostics/mpas_atm_diagnostics_manager.F:115
At line 140 of file mpas_stability_indices.F
Fortran runtime error: Index '0' of dimension 1 of array 'p' below lower bound of 1

Code - mpas_stability_indices.F

DO 5 J=1,3
     DO 4 I=1,JNO
     IF (PL(J)-P(I)) 4,6,7
4    CONTINUE
     PRINT*,"RAOB TERMINATES TOO SOON, P(JNO) = ",P(JNO)
     RETURN
6    TL(J)=TS(I)
     TDL(J)=TSD(I)
     GO TO 5
7    FACTOR=ALOG(PL(J)/P(I))/ALOG(P(I-1)/P(I))
     TL(J)=TS(I)+FACTOR*(TS(I-1)-TS(I))
     TDL(J)=TSD(I)+FACTOR*(TSD(I-1)-TSD(I))
5    CONTINUE

Jaci: 10km

(Intel)
Test Compile: OK
Test 264h FCST 00Z: OK
Test 120h FCST 12Z: running...
Test Compile with debug flag:
Test 6h FCST 00Z with debug flag (all steps include static):

(GNU)
Test Compile: OK
Test 264h FCST 00Z: OK
Test 120h FCST 12Z: running...
Test Compile with debug flag:
Test 6h FCST 00Z with debug flag (all steps include static):