Changeset 4370 for LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90
- Timestamp:
- Dec 6, 2022, 4:23:49 PM (17 months ago)
- Location:
- LMDZ6/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk
- Property svn:mergeinfo changed
/LMDZ6/branches/Ocean_skin merged: 4013,4020-4021,4024-4025,4368-4369
- Property svn:mergeinfo changed
-
LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90
r4283 r4370 313 313 USE print_control_mod, ONLY : prt_level,lunout 314 314 USE ioipsl_getin_p_mod, ONLY : getin_p 315 use phys_state_var_mod, only: ds_ns, dt_ns, delta_sst, delta_sal, zsig, zmea 316 use phys_output_var_mod, only: dter, dser, tkt, tks, taur, sss 315 use phys_state_var_mod, only: ds_ns, dt_ns, delta_sst, delta_sal, dter, & 316 dser, dt_ds, zsig, zmea 317 use phys_output_var_mod, only: tkt, tks, taur, sss 317 318 #ifdef CPP_XIOS 318 319 USE wxios, ONLY: missing_val … … 875 876 ! Martin 876 877 877 REAL, DIMENSION(klon):: ydelta_sst, ydelta_sal, yds_ns, ydt_ns, ydter, ydser,&878 y tkt, ytks, ytaur, ysss879 ! compression of delta_sst, delta_sal, ds_ns, dt_ns, dter, dser, tkt, tks,880 ! taur, sss on ocean points878 REAL, DIMENSION(klon):: ydelta_sst, ydelta_sal, yds_ns, ydt_ns, ydter, & 879 ydser, ydt_ds, ytkt, ytks, ytaur, ysss 880 ! compression of delta_sst, delta_sal, ds_ns, dt_ns, dter, dser, 881 ! dt_ds, tkt, tks, taur, sss on ocean points 881 882 882 883 !**************************************************************************************** … … 1533 1534 ydelta_sal(:knon) = delta_sal(ni(:knon)) 1534 1535 ydelta_sst(:knon) = delta_sst(ni(:knon)) 1536 ydter(:knon) = dter(ni(:knon)) 1537 ydser(:knon) = dser(ni(:knon)) 1538 ydt_ds(:knon) = dt_ds(ni(:knon)) 1535 1539 end if 1536 1540 … … 2113 2117 y_flux_u1, y_flux_v1, ydelta_sst(:knon), ydelta_sal(:knon), & 2114 2118 yds_ns(:knon), ydt_ns(:knon), ydter(:knon), ydser(:knon), & 2115 y tkt(:knon), ytks(:knon), ytaur(:knon), ysss)2119 ydt_ds(:knon), ytkt(:knon), ytks(:knon), ytaur(:knon), ysss) 2116 2120 IF (prt_level >=10) THEN 2117 2121 print *,'arg de surf_ocean: ycdragh ',ycdragh … … 2860 2864 taur(ni(:knon)) = ytaur(:knon) 2861 2865 sss(ni(:knon)) = ysss(:knon) 2866 2867 if (activate_ocean_skin == 2 .and. type_ocean == "couple") then 2868 dt_ds = missing_val 2869 dt_ds(ni(:knon)) = ydt_ds(:knon) 2870 end if 2862 2871 end if 2863 2872 … … 3527 3536 3528 3537 USE indice_sol_mod 3529 use phys_state_var_mod, only: delta_sal, ds_ns, dt_ns, delta_sst 3538 use phys_state_var_mod, only: delta_sal, ds_ns, dt_ns, delta_sst, dter, & 3539 dser, dt_ds 3530 3540 use config_ocean_skin_m, only: activate_ocean_skin 3531 3541 … … 3620 3630 delta_sal(i) = 0. 3621 3631 delta_sst(i) = 0. 3632 dter(i) = 0. 3633 dser(i) = 0. 3634 dt_ds(i) = 0. 3622 3635 end if 3623 3636
Note: See TracChangeset
for help on using the changeset viewer.