Changeset 5901 for LMDZ6/branches/LMDZ-COSP/libf/phylmd/physiq_mod.F90

Timestamp:

Dec 3, 2025, 3:11:24 PM (2 hours ago)

Author:

idelkadi

Message:

Implementation de la nouvelle version du Simulateur (Cospv2) dans LMDZ

File:

• LMDZ6/branches/LMDZ-COSP/libf/phylmd/physiq_mod.F90 (modified) (4 diffs)

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

@@ -159 +159 @@
     USE paramLMDZ_phy_mod
 #endif
-!
+
 !
 !!!!!!!!!!!!!!!!!!  END "USE" for CPP keys !!!!!!!!!!!!!!!!!!!!!!
@@ -408 +408 @@
        USE phytracr_spl_mod, ONLY: phytracr_spl_out_init, phytracr_spl
        USE s2s, ONLY : s2s_initialize, s2s_finalize
+
+!#ifdef CPPKEY_COSPV2
+!       USE interface_lmdz_cospv2_mod, ONLY: lmdz_cospv2_interface
+!#endif
+
     IMPLICIT NONE
     !>======================================================================
@@ -1834 +1839 @@
                mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0)
 
-          CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, &
+          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, &
@@ -5380 +5385 @@
                  print*,'Dans physiq.F avant appel '
           !     s        ref_liq,ref_ice
-          CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, &
+          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, &