Changeset 1524 for trunk/LMDZ.MARS/libf/phymars/tabfi.F

Timestamp:

Mar 29, 2016, 11:45:49 AM (9 years ago)

Author:

emillour

Message:

All GCMS:
More updates to enforce dynamics/physics separation:

get rid of references to "temps_mod" from physics packages;
make a "time_phylmdz_mod.F90" module to store that
information and fill it via "iniphysiq".

EM

File:

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

trunk/LMDZ.MARS/libf/phymars/tabfi.F

@@ -50 +50 @@
       use iostart, only: get_var
       use mod_phys_lmdz_para, only: is_parallel
-      use comcstfi_h
-      use planete_h
+      use comcstfi_h, only: g, mugaz, omeg, rad, rcp
+      use time_phylmdz_mod, only: daysec, dtphys
+      use planete_h, only: aphelie, emin_turb, lmixmin, obliquit,
+     &                     peri_day, periheli, year_day
       implicit none
  
@@ -541 +543 @@
       write(*,*) 
 
-      ENDIF                     !       of if (Lmodif == 1)
+      ENDIF ! of if (Lmodif == 1)
 
 c-----------------------------------------------------------------------