Changeset 815 for trunk/LMDZ.VENUS/libf

Timestamp:

Oct 25, 2012, 10:11:15 AM (12 years ago)

Author:

slebonnois

Message:

SL: petites modifs Titan et Venus pour tableau controle dans la physique ; pour Titan, petits details lies a raz_date ; modif chemin ioipsl sur gnome ; + elimination d'un warning etrange dans gcm.F

Location:

trunk/LMDZ.VENUS/libf/phyvenus

Files:

• phyetat0.F (modified) (5 diffs)
• phyredem.F (modified) (3 diffs)
• physiq.F (modified) (6 diffs)
• printflag.F (modified) (2 diffs)
• tabcontrol.h (added)

trunk/LMDZ.VENUS/libf/phyvenus/phyetat0.F

@@ -4 +4 @@
 c
 c
-      SUBROUTINE phyetat0 (fichnom,dtime,
+      SUBROUTINE phyetat0 (fichnom,
      .            rlat,rlon, tsol,tsoil,
      .           albe, solsw, sollw,
@@ -13 +13 @@
 
       use dimphy
+      use control_mod
       IMPLICIT none
 c======================================================================
@@ -22 +23 @@
 #include "dimsoil.h"
 #include "clesphys.h"
+#include "tabcontrol.h"
 #include "temps.h"
 c======================================================================
       CHARACTER*(*) fichnom
-      REAL dtime
-      INTEGER radpas
       REAL rlat(klon), rlon(klon)
       REAL tsol(klon)
@@ -49 +49 @@
       INTEGER nid, nvarid
       INTEGER ierr, i, nsrf, isoil 
-      INTEGER length
-      PARAMETER (length=100)
-      REAL tab_cntrl(length), tabcntr0(length)
+      REAL tab_cntrl(length)
       CHARACTER*2 str2
 c
@@ -92 +90 @@
 
       itau_phy = tab_cntrl(15)
+
+c Attention si raz_date est active :
+c il faut remettre a zero itau_phy apres phyetat0 !
+      IF (raz_date.eq.1) THEN
+        itau_phy=0
+      ENDIF
 
 c

trunk/LMDZ.VENUS/libf/phyvenus/phyredem.F

@@ -3 +3 @@
 !
 c
-      SUBROUTINE phyredem (fichnom,dtime,radpas,
+      SUBROUTINE phyredem (fichnom,
      .           rlat,rlon, tsol,tsoil,
      .           albedo, 
@@ -22 +22 @@
 #include "dimsoil.h"
 #include "clesphys.h"
+#include "tabcontrol.h"
 #include "temps.h"
 c======================================================================
       CHARACTER*13 fichnom
-      REAL dtime
-      INTEGER radpas
       REAL rlat(klon), rlon(klon)
       REAL tsol(klon)
@@ -42 +41 @@
       INTEGER nid, nvarid, idim1, idim2, idim3
       INTEGER ierr
-      INTEGER length
-      PARAMETER (length=100)
       REAL tab_cntrl(length)
 c

trunk/LMDZ.VENUS/libf/phyvenus/physiq.F

@@ -78 +78 @@
 #include "timerad.h" 
 #include "logic.h"
+#include "tabcontrol.h"
 c======================================================================
       LOGICAL ok_journe ! sortir le fichier journalier
@@ -147 +148 @@
 
 c Variables propres a la physique
-c
-      REAL dtime
-      SAVE dtime                  ! pas temporel de la physique
-c
-      INTEGER radpas
-      SAVE radpas                 ! frequence d'appel rayonnement
 c
       REAL,save,allocatable :: radsol(:) ! bilan radiatif au sol calcule par code radiatif
@@ -324 +319 @@
       REAL tr_seri(klon,klev,nqmax)
       REAL d_tr(klon,klev,nqmax)
-
-      INTEGER        length
-      PARAMETER    ( length = 100 )
-      REAL tabcntr0( length       )
 c
 c pour ioipsl
@@ -438 +429 @@
 c
 c REMETTRE TOUS LES PARAMETRES POUR OROGW...
-         CALL phyetat0 ("startphy.nc",dtime,
+         CALL phyetat0 ("startphy.nc",
      .       rlatd,rlond,ftsol,ftsoil,
      .       falbe, solsw, sollw,
      .       dlw,radsol,
      .      zmea,zstd,zsig,zgam,zthe,zpic,zval,
-     .       tabcntr0,
      .       t_ancien, ancien_ok)
 
-c dtime est lu dans startphy 
+c dtime est defini dans tabcontrol.h et lu dans startphy
 c pdtphys est calcule a partir des nouvelles conditions:
 c Reinitialisation du pas de temps physique quand changement
@@ -464 +454 @@
          radpas = NINT( RDAY/pdtphys/nbapp_rad)
 
-         CALL printflag( tabcntr0,radpas,ok_journe,ok_instan )
+         CALL printflag( ok_journe,ok_instan )
 c
 c---------
@@ -1353 +1343 @@
          itau_phy = itau_phy + itap
 c REMETTRE TOUS LES PARAMETRES POUR OROGW...
-         CALL phyredem ("restartphy.nc",dtime,radpas,
+         CALL phyredem ("restartphy.nc",
      .      rlatd, rlond, ftsol, ftsoil,
      .      falbe,

trunk/LMDZ.VENUS/libf/phyvenus/printflag.F

@@ -2 +2 @@
 ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/printflag.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $
 !
-       SUBROUTINE  printflag( tabcntr0, radpas, 
-     ,                        ok_journe,ok_instan )
+       SUBROUTINE  printflag( ok_journe,ok_instan )
 c
 
@@ -11 +10 @@
        IMPLICIT NONE
 
-       REAL tabcntr0( 100 )
        LOGICAL cycle_diurn0,soil_model0,ok_orodr0
        LOGICAL ok_orolf0,ok_gw_nonoro0
        LOGICAL ok_journe,ok_instan
-       INTEGER radpas , radpas0
+       INTEGER radpas0
 c
 #include "clesphys.h"
+#include "tabcontrol.h"
 #include "YOMCST.h"
 c