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

Timestamp:

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

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/gpxyb.F90 (modified) (3 diffs)

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

@@ -121 +121 @@
 ! The first block if is for economy (no do loop start up) and the second
 ! for safety.
-!print *,'GPXYB: NDLNPR RHYDR0=',NDLNPR,RHYDR0
+!PRINT *,'GPXYB: NDLNPR RHYDR0=',NDLNPR,RHYDR0
 TOPPRES=0.1  !!!!! A REVOIR (MPL) 29042010 passe de 0 a 0.1 comme ARPEGE
 IF(PRES(KSTART,0) <= TOPPRES)THEN
@@ -139 +139 @@
 !              --------------------
 
-!print *,'NDLNPR LVERTFE',NDLNPR,LVERTFE
+!PRINT *,'NDLNPR LVERTFE',NDLNPR,LVERTFE
 IF(NDLNPR == 0) THEN
 
@@ -177 +177 @@
          & *(PVDELB(JLEV)+PVC(JLEV)*PLNPR(JLON,JLEV)*PRDELP(JLON,&
          & JLEV))  
-!       print *,'GPXYB JLEV JLON JJ PRES ZPRES PDELP ', JLEV,JLON,JJ,PRES(JLON,JLEV),ZRPRES(JLON,JJ),PDELP(JLON,JLEV)
-!       print *,'GPXYB JLEV JLON JM PRDELP PLNPR ', JLEV,JLON,JM,PRDELP(JLON,JLEV),PLNPR (JLON,JLEV)
-!       print *,'GPXYB JLEV JLON JJ PRPRES PALPH ', JLEV,JLON,JJ,PRPRES(JLON,JLEV),PALPH (JLON,JLEV)
-!       print *,'GPXYB JLEV JLON PRPP PRTGR PVDELB PVC ', JLEV,JLON,PRPP  (JLON,JLEV),PRTGR (JLON,JLEV),PVDELB(JLEV),PVC(JLEV)
+!       PRINT *,'GPXYB JLEV JLON JJ PRES ZPRES PDELP ', JLEV,JLON,JJ,PRES(JLON,JLEV),ZRPRES(JLON,JJ),PDELP(JLON,JLEV)
+!       PRINT *,'GPXYB JLEV JLON JM PRDELP PLNPR ', JLEV,JLON,JM,PRDELP(JLON,JLEV),PLNPR (JLON,JLEV)
+!       PRINT *,'GPXYB JLEV JLON JJ PRPRES PALPH ', JLEV,JLON,JJ,PRPRES(JLON,JLEV),PALPH (JLON,JLEV)
+!       PRINT *,'GPXYB JLEV JLON PRPP PRTGR PVDELB PVC ', JLEV,JLON,PRPP  (JLON,JLEV),PRTGR (JLON,JLEV),PVDELB(JLEV),PVC(JLEV)
       ENDDO
       JTEMP=JM