Changeset 3110 for LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90

Timestamp:

Dec 4, 2017, 5:19:33 PM (7 years ago)

Author:

Laurent Fairhead

Message:

Added sza, solar zenithal angle, to outputs for CMIP6 dataresquest

File:

• LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90

@@ -14 +14 @@
   REAL, SAVE, ALLOCATABLE :: snow_o(:), zfra_o(:)
   !$OMP THREADPRIVATE(snow_o, zfra_o)
+  REAL, SAVE, ALLOCATABLE :: sza_o(:) ! solar zenithal angle
+  !$OMP THREADPRIVATE(sza_o)
   INTEGER, SAVE, ALLOCATABLE ::  itau_con(:)       ! Nombre de pas ou rflag <= 1
   !$OMP THREADPRIVATE(itau_con)
@@ -144 +146 @@
 
     allocate(snow_o(klon), zfra_o(klon))
+    allocate(sza_o(klon) )
     allocate(itau_con(klon))
     allocate(sens_prec_liq_o(klon,2))
@@ -198 +201 @@
 
     deallocate(snow_o,zfra_o,itau_con)
+    deallocate(sza_o)
     deallocate (bils_ec,bils_ech,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
     deallocate (d_qw_col, d_ql_col, d_qs_col, d_qt_col, d_ek_col, d_h_dair_col &