Changeset 4795 for LMDZ6/branches/LMDZ_DECOUPLE/libf/phylmd/tracinca_mod.F90

Timestamp:

Feb 1, 2024, 4:53:24 PM (8 months ago)

Author:

nfevrier

Message:

First save of N. Février's modifications

File:

• LMDZ6/branches/LMDZ_DECOUPLE/libf/phylmd/tracinca_mod.F90 (modified) (5 diffs)

LMDZ6/branches/LMDZ_DECOUPLE/libf/phylmd/tracinca_mod.F90

@@ -42 +42 @@
        tau_aero, piz_aero, cg_aero,        ccm,       &
        rfname,                                        &
-       tr_seri,  source)      
+       tr_seri,  source,beta_st)      
 
 !========================================================
@@ -111 +111 @@
     REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: pctsrf ! Pourcentage de sol f(nature du sol)
 
+! Nicolas Février
+! Lessivage de LMDZ à envoyer vers INCA
+    REAL,DIMENSION(klon,klev,12),INTENT(IN) :: beta_st
 
   ! InOutput argument
@@ -145 +148 @@
     ENDIF
 
+    !PRINT*, 'IL EST PASSE PAR ICI'
+
     CALL aerosolmain(                    &
          aerosol_couple,tr_seri,pdtphys, &
@@ -153 +158 @@
          rfname,ccm,lafin)
 #endif
+
+    !PRINT*, 'IL REPASSERA PAR LA'
+
+! Debug beta_st
+    print *,"BETA TRACINCA",beta_st(5000,35,7)
 
 
@@ -190 +200 @@
          nbp_lon,    & !nx
          nbp_lat,    & !ny
-         source )
+         source,     &
+         beta_st)
+
 #endif
     
+    !PRINT*, 'AVEC DE LA CHANCE PEUT-ETRE ICI AUSSI'
+
     CALL VTe(VTinca)
     CALL VTb(VTphysiq)