Changeset 3872 for LMDZ6/trunk/libf/phylmd/infotrac_phy.F90

Timestamp:

Apr 12, 2021, 12:40:14 PM (3 years ago)

Author:

oboucher

Message:

Last modifications for the CO2/INCA (inco) case

File:

• LMDZ6/trunk/libf/phylmd/infotrac_phy.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/infotrac_phy.F90

@@ -135 +135 @@
     CHARACTER(len=4),INTENT(IN) :: type_trac_
     INTEGER,INTENT(IN) :: niadv_ (nqtot_) ! equivalent dyn / physique
-    INTEGER,INTENT(IN) :: conv_flg_(nbtr_)      ! ModThL
-    INTEGER,INTENT(IN) :: pbl_flg_(nbtr_)       ! ModThL
-    CHARACTER(len=8),INTENT(IN) :: solsym_(nbtr_)       ! ModThL
+    INTEGER,INTENT(IN) :: conv_flg_(nbtr_)
+    INTEGER,INTENT(IN) :: pbl_flg_(nbtr_)
+    CHARACTER(len=8),INTENT(IN) :: solsym_(nbtr_)
     ! Isotopes:
     INTEGER,INTENT(IN) :: nqfils_(nqtot_)
@@ -168 +168 @@
     nqo=nqo_
     nbtr=nbtr_
-    nqCO2=nqCO2_        ! ModThL
+    nqCO2=nqCO2_
 #ifdef CPP_StratAer
     nbtr_bin=nbtr_bin_
@@ -192 +192 @@
      
     IF(prt_level.ge.1) THEN
-      write(lunout,*) TRIM(modname)//": nqtot,nqo,nbtr,nqCO2",nqtot,nqo,nbtr,nqCO2      ! ModThL
+      write(lunout,*) TRIM(modname)//": nqtot,nqo,nbtr,nqCO2",nqtot,nqo,nbtr,nqCO2
     ENDIF