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

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

@@ -114 +114 @@
 !100  CONTINUE
 
-!      print *,' Enter LWC '
+!      PRINT *,' Enter LWC '
 IF (LHOOK) CALL DR_HOOK('LWC',0,ZHOOK_HANDLE)
 DO JL = KIDIA,KFDIA
@@ -152 +152 @@
   ENDDO
 ENDDO
-!      print *,' LWC after Initialisation to clear-sky fluxes'
+!      PRINT *,' LWC after Initialisation to clear-sky fluxes'
 
 !*         2.1     FLUXES FOR ONE OVERCAST UNITY EMISSIVITY CLOUD
@@ -211 +211 @@
 
 ENDDO
-!      print *,' LWC after 213: Fluxes for unity emissivity'
+!      PRINT *,' LWC after 213: Fluxes for unity emissivity'
 
 !*         2.2     CLOUD COVER MATRIX
@@ -228 +228 @@
   ENDDO
 ENDDO
-!      print *,' LWC after Initialisation CC matrix'
+!      PRINT *,' LWC after Initialisation CC matrix'
 
 !*         2.4     CLOUD COVER BELOW THE LEVEL OF CALCULATION
@@ -279 +279 @@
 
 ENDDO
-!      print *,' LWC after 244: CC below level of calculation'
+!      PRINT *,' LWC after 244: CC below level of calculation'
 
 !*         2.5     CLOUD COVER ABOVE THE LEVEL OF CALCULATION
@@ -329 +329 @@
   ENDDO
 ENDDO
-!      print *,' LWC after 254: CC above level of calculation'
+!      PRINT *,' LWC after 254: CC above level of calculation'
 
 !*         3.      FLUXES FOR PARTIAL/MULTIPLE LAYERED CLOUDINESS
@@ -371 +371 @@
 
 ENDDO
-!      print *,' LWC after 317: Downward fluxes'
+!      PRINT *,' LWC after 317: Downward fluxes'
 
 !*         3.2     UPWARD FLUX AT THE SURFACE
@@ -413 +413 @@
 
 ENDDO
-!      print *,' LWC after 337: Upward fluxes'
+!      PRINT *,' LWC after 337: Upward fluxes'
 
 !-----------------------------------------------------------------------