Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/srtm_cldprop.F90

Timestamp:

Aug 3, 2024, 2:56:58 PM (3 months ago)

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/srtm_cldprop.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/srtm_cldprop.F90

@@ -116 +116 @@
 
 IF (I_NDBUG <= 2) THEN
-  print *,'cldprop before loop K_INFLAG, K_ICEFLAG, K_LIQFLAG:',K_INFLAG,K_ICEFLAG,K_LIQFLAG,IB1,IB2
+  PRINT *,'cldprop before loop K_INFLAG, K_ICEFLAG, K_LIQFLAG:',K_INFLAG,K_ICEFLAG,K_LIQFLAG,IB1,IB2
 ENDIF
 
@@ -216 +216 @@
         ENDDO
       ENDIF
-      print *,'end of ice computations for I_LAY=',I_LAY
+      PRINT *,'end of ice computations for I_LAY=',I_LAY
                   
 !  Calculation of absorption coefficients due to water clouds.
@@ -270 +270 @@
 
       IF (I_NDBUG <= 1) THEN
-        print *,'end of liquid water computations for I_LAY=',I_LAY
+        PRINT *,'end of liquid water computations for I_LAY=',I_LAY
       ENDIF
 
@@ -332 +332 @@
 
 IF (I_NDBUG <= 1) THEN
-  print *,'about to leave SRTM_CLDPROP'
+  PRINT *,'about to leave SRTM_CLDPROP'
 ENDIF