Changeset 3872 for LMDZ6/trunk/libf/phylmd/physiq_mod.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/physiq_mod.F90 (modified) (4 diffs)

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, &