Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/srtm_srtm_224gp.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_srtm_224gp.F90 (modified) (9 diffs)

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

@@ -133 +133 @@
   IOVLP = 3
 
-  !print *,'Entering srtm_srtm_224gp'
+  !PRINT *,'Entering srtm_srtm_224gp'
 
   ICLDATM = 1
@@ -148 +148 @@
       !- coefficients related to the cloud optical properties (original RRTM_SW)
 
-      !  print *,'just before SRTM_CLDPROP'
+      !  PRINT *,'just before SRTM_CLDPROP'
 
       !  DO JK=1,KLEV
@@ -218 +218 @@
       ENDDO
 
-      !  print *,'ZTOTCC ZCLEAR : ',ZTOTCC,' ',ZCLEAR
+      !  PRINT *,'ZTOTCC ZCLEAR : ',ZTOTCC,' ',ZCLEAR
 
       DO IMOL = 1, I_NMOL
@@ -236 +236 @@
       !    ENDIF
 
-      !  print *,'just before SRTM_SETCOEF'
+      !  PRINT *,'just before SRTM_SETCOEF'
 
       ZFRCL(1:KLEV) = PFRCL(JL, 1:KLEV)
@@ -253 +253 @@
               &)
 
-      !  print *,'just after SRTM_SETCOEF'
+      !  PRINT *,'just after SRTM_SETCOEF'
 
       !- call the radiation transfer routine
@@ -271 +271 @@
       !- mixing of aerosols
 
-      !  print *,'Aerosol optical properties computations'
+      !  PRINT *,'Aerosol optical properties computations'
       !  DO JSW=1,KSW
       !    print 9012,JSW,(JAE,RSRTAUA(JSW,JAE),RSRPIZA(JSW,JAE),RSRASYA(JSW,JAE),JAE=1,6)
@@ -335 +335 @@
       ENDDO
 
-      !  print *,'just before calling STRM_SPCVRT for JL=',JL,' and ZRMU0=',ZRMU0
+      !  PRINT *,'just before calling STRM_SPCVRT for JL=',JL,' and ZRMU0=',ZRMU0
 
       CALL SRTM_SPCVRT &
@@ -351 +351 @@
               &)
 
-      !  print *,'SRTM_SRTM_224GP before potential scaling'
+      !  PRINT *,'SRTM_SRTM_224GP before potential scaling'
       !    IF (IOVLP == 3) THEN
       !      DO JK=1,KLEV+1
@@ -362 +362 @@
       !      ENDDO
       !    ELSE
-      !    print *,'SRTM_SRTM_224GP after potential scaling'
+      !    PRINT *,'SRTM_SRTM_224GP after potential scaling'
       DO JK = 1, KLEV + 1
         PFSUC(JL, 1, JK) = ZADJI0 * ZBBCU(JK)