Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/undefSTD.f90

Timestamp:

Jul 28, 2025, 7:23:15 PM (7 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/undefSTD.f90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/phylmd/undefSTD.f90

@@ -3 +3 @@
 
 SUBROUTINE undefstd(itap, read_climoz)
-  USE clesphys_mod_h
+  USE clesphys_mod_h, ONLY : freq_calnmc
   USE netcdf
-  USE dimphy
-  USE phys_state_var_mod
+  USE dimphy, ONLY : klon
+  USE phys_state_var_mod, ONLY : nlevstd,nout,o3std,o3sumstd,philevstd,phisumstd,phys_tstep,qlevstd,qsumstd
+  USE phys_state_var_mod, ONLY : rhlevstd,rhsumstd,t2std,t2sumstd,tlevstd,tnondef,tsumstd,u2std,u2sumstd
+  USE phys_state_var_mod, ONLY : ulevstd,usumstd,uvstd,uvsumstd,v2std,v2sumstd,vlevstd,vphistd,vphisumstd
+  USE phys_state_var_mod, ONLY : vqstd,vqsumstd,vsumstd,vtstd,vtsumstd,wlevstd,wqstd,wqsumstd,wsumstd
+  USE phys_state_var_mod, ONLY : wtstd,wtsumstd,o3daysumstd,o3daystd,missing_val_nf90
+  USE phys_output_var_mod, ONLY : clef_files
+
+
   use wxios_mod, ONLY: missing_val_xios => missing_val, using_xios
 
@@ -64 +71 @@
     ! de la physique
 
-    IF (mod(itap,nint(freq_calnmc(n)/phys_tstep))==0) THEN
+!   print*,'STDSTD n,freq_calnmc(n),phys_tstep',n,freq_calnmc(n),phys_tstep
+    IF (clef_files(n) .and. mod(itap,nint(freq_calnmc(n)/phys_tstep))==0) THEN
       DO k = 1, nlevstd
         DO i = 1, klon