Changeset 5927 for LMDZ6/trunk/libf/phylmd/phys_state_var_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/phys_state_var_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -133 +133 @@
 !$OMP THREADPRIVATE(prw_ancien, prlw_ancien, prsw_ancien, prbsw_ancien)
 #ifdef ISO
-      REAL, ALLOCATABLE, SAVE :: xt_ancien(:,:,:),xtl_ancien(:,:,:),xts_ancien(:,:,:), xtbs_ancien(:,:,:)
+      REAL, ALLOCATABLE, SAVE :: xt_ancien(:,:,:),xtl_ancien(:,:,:),xts_ancien(:,:,:),xtbs_ancien(:,:,:)
 !$OMP THREADPRIVATE(xt_ancien,xtl_ancien,xts_ancien,xtbs_ancien)
 #endif
@@ -606 +606 @@
 USE clesphys_mod_h
 USE indice_sol_mod
-use config_ocean_skin_m, only: activate_ocean_skin
-use surface_data, only: type_ocean
+USE config_ocean_skin_m, ONLY: activate_ocean_skin
+USE surface_data, ONLY: type_ocean
 IMPLICIT NONE
 
-integer, intent(in)::  read_climoz
+INTEGER, INTENT(IN)::  read_climoz
 ! read ozone climatology
 ! Allowed values are 0, 1 and 2
@@ -619 +619 @@
 
 
-      print*, 'is_initialized', is_initialized
+      PRINT*, 'is_initialized', is_initialized
       IF (is_initialized) RETURN
       is_initialized=.TRUE.
@@ -654 +654 @@
       ALLOCATE(falb2(klon,nbsrf))
 !albedo SB >>> 
-      print*, 'allocate falb'
+      PRINT*, 'allocate falb'
       ALLOCATE(falb_dir(klon,nsw,nbsrf),falb_dif(klon,nsw,nbsrf))
 !!      print*, 'allocate falb good', falb_dir(1,1,1)