Changeset 5915

Timestamp:

Dec 8, 2025, 10:51:08 AM (8 hours ago)

Author:

idelkadi

Message:

 

Location:

LMDZ6/branches/LMDZ-COSP

Files:

• DefLists/field_def_lmdz.xml (modified) (2 diffs)
• arch/arch-local-gfortran9-parallel.fcm (modified) (2 diffs)
• bld.cfg.rrtm (modified) (1 diff)
• libf/phylmd/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/branches/LMDZ-COSP/DefLists/field_def_lmdz.xml

@@ -45 +45 @@
         <field id="pt0"     long_name="Standard Air Surface Temperature"      unit="K" />
         <field id="tsol"    long_name="Surface Temperature"     unit="K" />
+        <field id="tslsi"    long_name="Surface Temperature land and iced surf"     unit="K" />
         <field id="t2m"        long_name="Temperature 2m" unit="K" />
         <field id="tasmax"  field_ref="t2m"  operation="maximum" />
@@ -1423 +1424 @@
       <field id="co2_ppm" long_name="co2_ppm" unit="ppm" />
       <field id="CH4_ppb" long_name="CH4_ppb" unit="ppb" />
+      <field id="CH4_eff_ppb" long_name="CH4_eff_ppb" unit="ppb" />  <!-- Added PC -->
       <field id="N2O_ppb" long_name="N2O_ppb" unit="ppb" />
+      <field id="N2O_eff_ppb" long_name="N2O_eff_ppb" unit="ppb" />  <!-- Added PC -->
       <field id="CFC11_ppt" long_name="CFC11_ppt" unit="ppt" />
       <field id="CFC12_ppt" long_name="CFC12_ppt" unit="ppt" />

LMDZ6/branches/LMDZ-COSP/arch/arch-local-gfortran9-parallel.fcm

@@ -9 +9 @@
 %FPP_DEF             NC_DOUBLE
 
-%BASE_FFLAGS         -ffree-line-length-0 -fdefault-real-8 -fimplicit-none
+%BASE_FFLAGS         -cpp -ffree-line-length-0 -fdefault-real-8 -DNC_DOUBLE
 %BASE_CFLAGS         -w -std=c++11 -D__XIOS_EXCEPTION  # xios
 # /!\ LD must be written in Makefile syntax
@@ -18 +18 @@
 %PROD_CFLAGS         -O3 -DBOOST_DISABLE_ASSERTS  # xios
 
-%DEV_FFLAGS          -Wall -fbounds-check
+%DEV_FFLAGS          -Wall -fbounds-check 
 %DEV_CFLAGS          -g -O2  # xios
 

LMDZ6/branches/LMDZ-COSP/bld.cfg.rrtm

@@ -39 +39 @@
 src::cosp::lmdz_cosp %COSP/lmdz
 src::cosp::cosp_simulator %COSP/src/simulator
-#src::cosp::cosp_driver %COSP/driver/src
 src::cosp::cosp_misr %COSP/src/simulator/MISR_simulator
 src::cosp::cosp_modis %COSP/src/simulator/MODIS_simulator

LMDZ6/branches/LMDZ-COSP/libf/phylmd/physiq_mod.F90

@@ -1839 +1839 @@
                mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0)
 
-          CALL lmdz_cospv2_interface(itap,phys_tstep,freq_cosp, &
-               ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
-               ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
+          CALL lmdz_cospv2_interface(itap,pdtphys, &
                klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
                JrNt_cosp0,ref_liq_cosp0,ref_ice_cosp0, &
@@ -5372 +5370 @@
 IF (CPPKEY_COSPV2) THEN
        IF (itap.eq.1.or.MOD(itap,NINT(freq_cosp/phys_tstep)).EQ.0) THEN
-!        IF (MOD(itap,NINT(freq_cosp/phys_tstep)).EQ.0) THEN
+        !IF (MOD(itap,NINT(freq_cosp/phys_tstep)).EQ.0) THEN
 
           IF (prt_level .GE.10) THEN
@@ -5385 +5383 @@
                  print*,'Dans physiq.F avant appel '
           !     s        ref_liq,ref_ice
-          CALL lmdz_cospv2_interface(itap,phys_tstep,freq_cosp, &
-               ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
-               ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
+          CALL lmdz_cospv2_interface(itap,pdtphys, &
                klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
                JrNt,ref_liq,ref_ice, &