Changeset 4798 for LMDZ6/branches/WETDEP_DECOUPLE/libf/phylmd

Timestamp:

Feb 2, 2024, 5:04:42 PM (5 months ago)

Author:

nfevrier

Message:

First save of N. Février's modifications

Location:

LMDZ6/branches/WETDEP_DECOUPLE/libf/phylmd

Files:

• phys_output_mod.F90 (modified) (2 diffs)
• phys_output_write_mod.F90 (modified) (4 diffs)
• radlwsw_m.F90 (modified) (1 diff)

LMDZ6/branches/WETDEP_DECOUPLE/libf/phylmd/phys_output_mod.F90

@@ -501 +501 @@
                            tname(iiq),'Tracer '//ttext(iiq), "-",  &
                            (/ '', '', '', '', '', '', '', '', '', '' /))
-            o_dtr_vdf(iq-nqo) = ctrl_out((/ 4, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), &
+            o_dtr_vdf(iq-nqo) = ctrl_out((/ 5, 5, 5, 5, 10, 10, 11, 11, 11, 11 /), &
                               'd'//trim(tname(iq))//'_vdf',  &
                               'Tendance tracer '//ttext(iiq), "-" , &
@@ -566 +566 @@
                                  (/ '', '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_dry(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), &
+            o_dtr_dry(iq-nqo) = ctrl_out((/ 5, 5, 5, 5, 10, 10, 11, 11, 11, 11 /), &
                               'cum'//'d'//trim(tname(iq))//'_dry', &
                               'tracer tendency dry deposition'//ttext(iiq), "-", &

LMDZ6/branches/WETDEP_DECOUPLE/libf/phylmd/phys_output_write_mod.F90

@@ -413 +413 @@
     ! Local
     INTEGER :: itau_w
-    INTEGER :: i, iinit, iinitend=1, iff, iq, iiq, nsrf, k, ll, naero
+    INTEGER :: i, iinit, iinitend=1, iff, iq, iiq, nsrf, k, ll, naero, j
     REAL, DIMENSION (klon) :: zx_tmp_fi2d, zpt_conv2d, wind100m
     REAL, DIMENSION (klon,klev) :: zx_tmp_fi3d, zpt_conv
@@ -446 +446 @@
     REAL,DIMENSION(klon,klev) :: z, dz
     REAL,DIMENSION(klon)      :: zrho, zt
+
+    ! Nicolas Février
+    INTEGER,DIMENSION(2) :: index_bc=[106,116]
 
     ! On calcul le nouveau tau:
@@ -2372 +2375 @@
              IF (vars_defined) THEN
                 DO k=1,klev
-                   zx_tmp_fi2d(:)=zx_tmp_fi2d(:)+zmasse(:,k)*tr_seri(:,k,iq-nqo)
+                  zx_tmp_fi2d(:)=zx_tmp_fi2d(:)+zmasse(:,k)*tr_seri(:,k,iq-nqo)
                 ENDDO
              ENDIF
@@ -2378 +2381 @@
            ENDDO !--iq
          ENDIF   !--type_trac
+
+         ! Pour bilan
+         DO j=1,size(index_bc)
+             iq=index_bc(j)
+             !WRITE(lunout,*) "WRITE_TEST_1"," / iq=",iq
+             CALL histwrite_phy(o_dtr_vdf(iq-nqo),d_tr_cl(:,:,iq-nqo))
+             !WRITE(lunout,*) "WRITE_TEST_2"
+         END DO
 !
          IF (type_trac == 'co2i') THEN

LMDZ6/branches/WETDEP_DECOUPLE/libf/phylmd/radlwsw_m.F90

@@ -873 +873 @@
          ZTOPLWAIAERO,ZSOLLWAIAERO, &
          ZLWADAERO, & !--NL
-         ok_ade, ok_aie, ok_volcan, flag_aerosol,flag_aerosol_strat, flag_aer_feedback) ! flags aerosols
+         ok_ade, ok_aie, ok_volcan, flag_aerosol,flag_aerosol_strat, .FALSE.) !Nicolas Février
             
 !        print *,'RADLWSW: apres RECMWF'