Changeset 1593 for trunk/LMDZ.GENERIC/libf/dyn3d/defrun_new.F

Timestamp:

Sep 9, 2016, 4:04:54 PM (8 years ago)

Author:

emillour

Message:

Common dynamics:

• some cleanup around unused or unecessary parameters in the dynamics (ecritphy, grireg and physic) to harmonize with LMDZ5 (Earth dyn core).
• associated changes in LMDZ.MARS and LMDZ.GENERIC

EM

File:

• trunk/LMDZ.GENERIC/libf/dyn3d/defrun_new.F (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/dyn3d/defrun_new.F

@@ -40 +40 @@
       use sponge_mod,only: callsponge,nsponge,mode_sponge,tetasponge
       use control_mod,only: nday, day_step, iperiod, anneeref,
-     &                      iconser, idissip, iphysiq, ecritphy
-      USE logic_mod, ONLY: hybrid,purmats,physic,grireg,fxyhypb,ysinus
+     &                      iconser, idissip, iphysiq
+      USE logic_mod, ONLY: hybrid,purmats,fxyhypb,ysinus,iflag_phys
       USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
      .                  alphax,alphay,taux,tauy
@@ -210 +210 @@
         WRITE(lunout,*) ""
         WRITE(lunout,*) "avec ou sans physique"
-        physic=.true. ! default value
-        call getin("physic",physic)
-        WRITE(lunout,*)" physic = ",physic
+!        physic=.true. ! default value
+!        call getin("physic",physic)
+!        WRITE(lunout,*)" physic = ",physic
+        iflag_phys=1 ! default value
+        call getin("iflag_phys",iflag_phys)
+        WRITE(lunout,*)" iflag_phys = ",iflag_phys
 
         WRITE(lunout,*) ""
@@ -220 +223 @@
         WRITE(lunout,*)" iphysiq = ",iphysiq
 
-        WRITE(lunout,*) ""
-        WRITE(lunout,*) "choix d'une grille reguliere"
-        grireg=.true.
-        call getin("grireg",grireg)
-        WRITE(lunout,*)" grireg = ",grireg
+!        WRITE(lunout,*) ""
+!        WRITE(lunout,*) "choix d'une grille reguliere"
+!        grireg=.true.
+!        call getin("grireg",grireg)
+!        WRITE(lunout,*)" grireg = ",grireg
 
 ccc   .... P.Le Van, ajout le 03/01/96 pour l'ecriture phys ...
 c
-        WRITE(lunout,*) ""
-        WRITE(lunout,*) "frequence (en pas) de l'ecriture ",
-     & "du fichier diagfi.nc"
-        ecritphy=240
-        call getin("ecritphy",ecritphy)
-        WRITE(lunout,*)" ecritphy = ",ecritphy
+!        WRITE(lunout,*) ""
+!        WRITE(lunout,*) "frequence (en pas) de l'ecriture ",
+!     & "du fichier diagfi.nc"
+!        ecritphy=240
+!        call getin("ecritphy",ecritphy)
+!        WRITE(lunout,*)" ecritphy = ",ecritphy
 
 ccc  ....   P. Le Van , ajout  le 7/03/95 .pour le zoom ...