Changeset 2989 for LMDZ5/trunk/libf/phylmd/iophy.F90

Timestamp:

Sep 18, 2017, 5:32:12 PM (7 years ago)

Author:

musat

Message:

The 4co2 output fields are now managed by the XIOS server via
file*lmdz*xml files and the ok_4xCO2atm logical flag.
ok_4xCO2atm is initialized to TRUE if

• one of the 4co2 variables (rsut4cO2, rlut4co2, etc) are asked for

by XIOS sefrver or

• if one of the perturbed GES concentration (RCO2_per, RCH4_per, etc)

is different from the actual (RCO2, RCH4, etc) GES concentration.

File:

• LMDZ5/trunk/libf/phylmd/iophy.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/iophy.F90

@@ -459 +459 @@
     USE mod_phys_lmdz_para, ONLY: jj_nb
     USE phys_output_var_mod, ONLY: type_ecri, zoutm, zdtime_moy, lev_files, &
-                                   nid_files, nhorim, swaero_diag, dryaod_diag, nfiles
+                                   nid_files, nhorim, swaero_diag, dryaod_diag, nfiles, &
+                                   ok_4xCO2atm
     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     USE aero_mod, ONLY : naero_tot, name_aero_tau
@@ -517 +518 @@
     ENDDO
 
+    ! Set ok_4xCO2atm=true if at least one of the concerned variables are
+    ! defined
+    IF (nomvar=='rsut4co2'.OR.nomvar=='rlut4co2'.OR.nomvar=='rsutcs4co2' & 
+        .OR. nomvar=='rlutcs4co2'.OR.nomvar=='rsu4co2'.OR.nomvar=='rsucs4co2' &
+        .OR.nomvar=='rsu4co2'.OR.nomvar=='rsucs4co2'.OR.nomvar=='rsd4co2'.OR. &
+        nomvar=='rsdcs4co2'.OR.nomvar=='rlu4co2'.OR.nomvar=='rlucs4co2'.OR.&
+        nomvar=='rld4co2'.OR.nomvar=='rldcs4co2') THEN
+        IF ( flag_var(iff)<=lev_files(iff) ) ok_4xCO2atm=.TRUE.
+    ENDIF 
   END SUBROUTINE histdef2d_old
 
@@ -573 +583 @@
     USE phys_output_var_mod, ONLY: ctrl_out, type_ecri_files, zoutm, zdtime_moy, &
                                    clef_stations, phys_out_filenames, lev_files, &
-                                   nid_files, nhorim, swaero_diag, dryaod_diag
+                                   nid_files, nhorim, swaero_diag, dryaod_diag,&
+                                   ok_4xCO2atm 
     USE print_control_mod, ONLY: prt_level,lunout 
     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
@@ -663 +674 @@
       ENDIF
     ENDDO
+    ! Set ok_4xCO2atm=true if at least one of the concerned variables are
+    ! defined
+    IF (var%name=='rsut4co2'.OR.var%name=='rlut4co2'.OR.var%name=='rsutcs4co2' & 
+        .OR. var%name=='rlutcs4co2'.OR.var%name=='rsu4co2'.OR.var%name=='rsucs4co2' &
+        .OR.var%name=='rsu4co2'.OR.var%name=='rsucs4co2'.OR.var%name=='rsd4co2'.OR. &
+        var%name=='rsdcs4co2'.OR.var%name=='rlu4co2'.OR.var%name=='rlucs4co2'.OR.&
+        var%name=='rld4co2'.OR.var%name=='rldcs4co2') THEN
+        IF ( var%flag(iff)<=lev_files(iff) ) ok_4xCO2atm=.TRUE.
+    ENDIF 
   END SUBROUTINE histdef2d