Changeset 3309 for trunk/LMDZ.GENERIC/libf/phystd

Timestamp:

Apr 22, 2024, 3:03:22 AM (20 months ago)

Author:

yjaziri

Message:

GENERIC PCM:

• Cosmetic + clarifying some variables and comments in chemistry
• add controle variable for actinique UV flux in photochemistry and output surface UV flux in diagspecUV.nc

YJ

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• callkeys_mod.F90 (modified) (1 diff)
• inifis_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90

@@ -87 +87 @@
       logical,save :: depos
       logical,save :: haze
-!$OMP THREADPRIVATE(photochem,photoheat,jonline,depos)
+      logical,save :: output_writediagspecUV
+!$OMP THREADPRIVATE(photochem,photoheat,jonline,depos,output_writediagspecUV)
       logical,save :: calllott_nonoro
 !$OMP THREADPRIVATE(calllott_nonoro)

trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

@@ -543 +543 @@
      if (is_master) write(*,*)trim(rname)//": haze = ",haze
 
+     if (is_master) write(*,*)trim(rname)//": Output photochemical surface UV flux ?"
+     output_writediagspecUV=.false. ! default value
+     call getin_p("output_writediagspecUV",output_writediagspecUV)
+     if (is_master) write(*,*)trim(rname)//": output_writediagspecUV = ",output_writediagspecUV
+
 ! Global1D mean and solar zenith angle