Changeset 6115 for LMDZ6/branches/LMDZISOdevSN/libf/phylmdiso/phyetat0_mod.F90

Timestamp:

Mar 20, 2026, 5:41:06 PM (2 weeks ago)

Author:

Sebastien Nguyen

Message:

Major modifications to pbl_surface_mod.F90 to implement YM modifications in isotopes

File:

• LMDZ6/branches/LMDZISOdevSN/libf/phylmdiso/phyetat0_mod.F90 (modified) (2 diffs)

LMDZ6/branches/LMDZISOdevSN/libf/phylmdiso/phyetat0_mod.F90

@@ -63 +63 @@
   USE time_phylmdz_mod, ONLY: init_iteration, pdtphys, itau_phy
   USE wxios_mod, ONLY: missing_val_xios => missing_val, using_xios
-  USE netcdf, only: missing_val_netcdf => nf90_fill_real
-  USE config_ocean_skin_m, only: activate_ocean_skin
+  USE netcdf, ONLY: missing_val_netcdf => nf90_fill_real
+  USE config_ocean_skin_m, ONLY: activate_ocean_skin
   USE surf_param_mod, ONLY: average_surf_var, interpol_tsoil !AM
 #ifdef ISO
@@ -92 +92 @@
   REAL qsurf(klon, nbsrf)
   REAL snow(klon, nbsrf)
-  real fder(klon)
+  REAL fder(klon)
   REAL run_off_lic_0(klon)
   REAL fractint(klon)