Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/surf_ocean_mod.F90

Timestamp:

Jul 28, 2025, 7:23:15 PM (6 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/surf_ocean_mod.F90 (modified) (3 diffs)

LMDZ6/branches/contrails/libf/phylmd/surf_ocean_mod.F90

@@ -21 +21 @@
        tsurf_new, dflux_s, dflux_l, lmt_bils, &
        flux_u1, flux_v1, delta_sst, delta_sal, ds_ns, dt_ns, dter, dser, &
-       dt_ds, tkt, tks, taur, sss &
+!GG       dt_ds, tkt, tks, taur, sss)
+       dt_ds, tkt, tks, taur, sss, &
+       dthetadz300,Ampl      &
+!GG
 #ifdef ISO
         &       ,xtprecip_rain, xtprecip_snow,xtspechum,Roce, &
@@ -127 +130 @@
     ! (tks / tkt) * dTer, in K
 
+!GG
+    REAL, DIMENSION(klon), INTENT(IN)        :: dthetadz300
+    REAL, DIMENSION(klon), INTENT(OUT)        :: Ampl
+!
+
     ! Output variables
     !**************************************************************************
@@ -270 +278 @@
             radsol, snow, agesno, &
             qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
-            tsurf_new, dflux_s, dflux_l, sens_prec_liq, rhoa &
+!GG           tsurf_new, dflux_s, dflux_l, sens_prec_liq, rhoa)
+            tsurf_new, dflux_s, dflux_l, sens_prec_liq, rhoa, &
+            dthetadz300,  pctsrf, Ampl &
+!GG
 #ifdef ISO
             ,xtprecip_rain, xtprecip_snow, xtspechum,Roce,rlat, &