Changeset 3872 for LMDZ6/trunk/libf/phylmd

Timestamp:

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

Author:

oboucher

Message:

Last modifications for the CO2/INCA (inco) case

Location:

LMDZ6/trunk/libf/phylmd

Files:

• infotrac_phy.F90 (modified) (3 diffs)
• physiq_mod.F90 (modified) (4 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
     

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1943 +1943 @@
                klon, &
                nqtot, &
-               nqo+nqCO2, &     ! ModThL
+               nqo+nqCO2, &
                pdtphys, &
                annee_ref, &
@@ -3781 +3781 @@
             nbp_lon, &
             nbp_lat-1, &
-            tr_seri(:,:,1+nqCO2:nbtr), &                ! ModThL
+            tr_seri(:,:,1+nqCO2:nbtr), &
             ftsol, &
             paprs, &
@@ -4923 +4923 @@
     ENDDO
     !
-    IF (type_trac == 'inca' .OR. type_trac == 'inco') THEN      ! ModThL
+    IF (type_trac == 'inca' .OR. type_trac == 'inco') THEN
 #ifdef INCA
        CALL VTe(VTphysiq)
@@ -4932 +4932 @@
             pplay, &
             t_seri, &
-            tr_seri(:,:,1+nqCO2:nbtr), &        ! ModThL
+            tr_seri(:,:,1+nqCO2:nbtr), &
             nbtr, &
             paprs, &