Changeset 3224 for trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars

Timestamp:

Feb 16, 2024, 4:17:28 PM (10 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

File:

• trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/leapfrog_nogcm.F (modified) (2 diffs)

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,