Changeset 4482 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm

Timestamp:

Mar 29, 2023, 3:14:27 PM (22 months ago)

Author:

lguez

Message:

Sync latest trunk changes to branch LMDZ_ECRad

Location:

LMDZ6/branches/LMDZ_ECRad

Files:

• . (modified) (1 prop)
• libf/phylmd/rrtm/rrtm_taumol2.F90 (modified) (2 diffs)
• libf/phylmd/rrtm/suecrad.F90 (modified) (1 diff)

LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/rrtm_taumol2.F90

@@ -125 +125 @@
       CALL prt_alerte(message,modname,1)
       PRINT*,'WARNING IFP=',IFP,' 2.E2_JPRB*Z_FP+0.5_JPRB avec Z_FP=',Z_FP
-      IFP=200
    ENDIF
+   IFP=200
   ENDIF
 
@@ -170 +170 @@
       CALL prt_alerte(message,modname,1)
       PRINT*,'WARNING IFP=',IFP,' 2.E2_JPRB*Z_FP+0.5_JPRB avec Z_FP=',Z_FP
-      IFP=200
    ENDIF
+   IFP=200
   ENDIF
 

LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/suecrad.F90

@@ -243 +243 @@
 !      ----------------------------------------------------------------
 
+#include "clesphys.h"
 #include "naerad.h"
 #include "namrgri.h"
 !MPL/IM 20160915 on prend GES de phylmd
-#include "clesphys.h"
 
 !*         1.       INITIALIZE NEUROFLUX LONGWAVE RADIATION