Changeset 5927 for LMDZ6/trunk/libf/phylmd/phyetat0_mod.f90

Timestamp:

Dec 12, 2025, 5:26:10 PM (6 weeks ago)

Author:

Sebastien Nguyen

Message:

Changes to compile LMDZ-OR-ISO and wrtie output variables Rsol isotopes soil ratio) xtevap xtcoastal xtrivflu. Changes from CA and ND to write output variables xtprw (precipitatble water) uxt and vxt (meridional and zonal advected humidity) Rlandice and xtsnow.

File:

• LMDZ6/trunk/libf/phylmd/phyetat0_mod.f90 (modified) (8 diffs)

LMDZ6/trunk/libf/phylmd/phyetat0_mod.f90

@@ -11 +11 @@
 
   USE clesphys_mod_h
-  USE dimphy, only: klon, zmasq, klev, nbtersrf, nbtsoildepths
+  USE dimphy, ONLY: klon, zmasq, klev, nbtersrf, nbtsoildepths
   USE iophy, ONLY : init_iophy_new
   USE ocean_cpl_mod,    ONLY : ocean_cpl_init
@@ -18 +18 @@
 !GG  USE surface_data,     ONLY : type_ocean, version_ocean
   USE surface_data,     ONLY : type_ocean, version_ocean, iflag_seaice, &
-                                   iflag_seaice_alb, iflag_leads
+                               iflag_seaice_alb, iflag_leads
 !GG
   USE phyetat0_get_mod, ONLY : phyetat0_get, phyetat0_srf
@@ -54 +54 @@
   !GG
   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 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 surf_param_mod, ONLY: average_surf_var, interpol_tsoil !AM
   USE dimsoil_mod_h, ONLY: nsoilmx
@@ -62 +62 @@
   USE alpale_mod
   USE compbl_mod_h
-IMPLICIT none
+
+  IMPLICIT NONE
+
   !======================================================================
   ! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818
@@ -74 +76 @@
   REAL qsurf(klon, nbsrf)
   REAL snow(klon, nbsrf)
-  real fder(klon)
+  REAL fder(klon)
   REAL run_off_lic_0(klon)
   REAL fractint(klon)
@@ -190 +192 @@
 
   ! set time iteration
-   CALL init_iteration(itau_phy)
+  CALL init_iteration(itau_phy)
 
   ! read latitudes and make a sanity check (because already known from dyn)
@@ -518 +520 @@
   ENDIF
 
-
   found=phyetat0_get(clwcon,"CLWCON","CLWCON",0.)
   found=phyetat0_get(rnebcon,"RNEBCON","RNEBCON",0.)
@@ -542 +543 @@
   ENDIF
 
-  IF ((iflag_pbl>1)) then
+  IF (iflag_pbl>1) then
      found=phyetat0_srf(pbl_tke,"TKE","Turb. Kinetic. Energ. ",1.e-8)
   ENDIF