Changeset 3224 for trunk/LMDZ.MARS

Timestamp:

Feb 16, 2024, 4:17:28 PM (9 months ago)

Author:

emillour

Message:

Mars PCM:
Follow-up of r3217, remove some unused "use ..." in leapfrog_nogcm which
cause problems when compiling gcm in parallel mode
EM

Location:

trunk/LMDZ.MARS

Files:

• changelog.txt (modified) (1 diff)
• libf/dynphy_lonlat/phymars/leapfrog_nogcm.F (modified) (2 diffs)

trunk/LMDZ.MARS/changelog.txt

@@ -4504 +4504 @@
 Adsorption: commit the last version developed by Pierre Yves Meslin
 
+== 16/02/2024 == EM
+Follow-up of r3217, remove some unused "use ..." in leapfrog_nogcm which
+cause problems when compiling gcm in parallel mode

trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/leapfrog_nogcm.F

@@ -13 +13 @@
 #endif
       USE infotrac, ONLY: nqtot,ok_iso_verif,tname
-      USE guide_mod, ONLY : guide_main
       USE write_field, ONLY: writefield
       USE control_mod, ONLY: planet_type,nday,day_step,iperiod,iphysiq,
@@ -23 +22 @@
       use exner_milieu_m, only: exner_milieu
       use cpdet_mod, only: cpdet,tpot2t,t2tpot
-      use sponge_mod, only: callsponge,mode_sponge,sponge
        use comuforc_h
       USE comvert_mod, ONLY: ap,bp,pressure_exner,presnivs,