Changeset 97 for trunk/libf/dyn3dpar/conf_gcm.F

Timestamp:

Mar 22, 2011, 5:25:44 PM (14 years ago)

Author:

slebonnois

Message:

Serie de modifs SL pour homogeneisation des phytitan et phyvenus
Ca touche aussi aux liens phy/dyn (surtout a propos de clesphy0),
a verifier avec les autres, donc...

File:

• trunk/libf/dyn3dpar/conf_gcm.F (modified) (5 diffs)

trunk/libf/dyn3dpar/conf_gcm.F

@@ -4 +4 @@
 c
 c
-      SUBROUTINE conf_gcm( tapedef, etatinit, clesphy0 )
+      SUBROUTINE conf_gcm( tapedef, etatinit )
 c
 #ifdef CPP_IOIPSL
@@ -26 +26 @@
 c     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para- 
 c     -metres  du zoom  avec  celles lues sur le fichier start .
-c      clesphy0 :  sortie  .
 c
        LOGICAL etatinit
        INTEGER tapedef
 
-       INTEGER        longcles
-       PARAMETER(     longcles = 20 )
-       REAL clesphy0( longcles )
-c
 c   Declarations :
 c   --------------
@@ -157 +152 @@
       CALL getin('raz_date', raz_date)
 
+!Config  Key  = resetvarc
+!Config  Desc = Reinit des variables de controle
+!Config  Def  = n
+!Config  Help = Reinit des variables de controle
+      resetvarc = .false.
+      CALL getin('resetvarc',resetvarc)
+
 !Config  Key  = nday
 !Config  Desc = Nombre de jours d'integration
@@ -164 +166 @@
       nday = 10
       CALL getin('nday',nday)
+
+!Config  Key  = less1day
+!Config  Desc = Possibilite d'integrer moins d'un jour
+!Config  Def  = n
+!Config  Help = Possibilite d'integrer moins d'un jour
+      less1day = .false.
+      CALL getin('less1day',less1day)
+
+!Config  Key  = fractday
+!Config  Desc = integration sur une fraction de jour
+!Config  Def  = 0.01
+!Config  Help = integration sur une fraction de jour
+      fractday = 0.01
+      CALL getin('fractday',fractday)
 
 !Config  Key  = day_step
@@ -628 +644 @@
       write(lunout,*)' anneeref = ', anneeref
       write(lunout,*)' nday = ', nday
+      if (less1day) then
+      write(lunout,*)' Run only for a fraction of day ! '
+      write(lunout,*)' fractday = ', fractday
+      endif
       write(lunout,*)' day_step = ', day_step
       write(lunout,*)' iperiod = ', iperiod