source: LMDZ4/branches/V3_test/libf/phylmd/ini_undefSTD.F @ 2116

Last change on this file since 2116 was 704, checked in by Laurent Fairhead, 18 years ago

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.2 KB
Line 
1      SUBROUTINE ini_undefSTD(nlevSTD,itap,
2     $           dtime,ecrit_day,ecrit_mth,
3     $           tnondef,tsumSTD)
4      USE dimphy
5      IMPLICIT none
6c
7c====================================================================
8c
9c I. Musat : 09.2004
10c
11c Initialisation - a des frequences differentes :
12c
13c 1) des variables moyennees sur la journee "day" ou sur le mois "mth"
14c    calculees a partir des valeurs "instantannees" de la physique
15c
16c 2) des variables moyennes mensuelles "NMC" calculees a partir des val.
17c    toutes les 6 heures
18c
19c nout=1 !var. journaliere "day" moyenne sur tous les pas de temps
20c              ! de la physique
21c nout=2 !var. mensuelle "mth" moyennee sur tous les pas de temps
22c              ! de la physique
23c nout=3 !var. mensuelle "NMC" moyennee toutes les 6heures
24c
25c
26c NB: mettre "inst(X)" dans le write_histXXX.h !
27c====================================================================
28c
29cym #include "dimensions.h"
30cym      integer jjmp1
31cym      parameter (jjmp1=jjm+1-1/jjm)
32cym #include "dimphy.h"
33c variables Input/Output
34      INTEGER nlevSTD, klevSTD, itap
35      PARAMETER(klevSTD=17)
36      REAL dtime
37      REAL ecrit_day,ecrit_mth
38c
39c variables locales
40      INTEGER i, k, nout
41      PARAMETER(nout=3) !nout=1 day/nout=2 mth/nout=3 NMC
42c
43c variables Output
44      REAL tnondef(klon,klevSTD,nout)
45      REAL tsumSTD(klon,klevSTD,nout)
46c
47c initialisation variables journalieres en debut de journee
48c
49      IF(MOD(itap,NINT(ecrit_day/dtime)).EQ.1.) THEN
50       DO k=1, nlevSTD
51        DO i=1, klon
52         tnondef(i,k,1)=0.
53         tsumSTD(i,k,1)=0.
54        ENDDO !i
55       ENDDO !k
56      ENDIF
57c
58c initialisation variables mensuelles (calculees a chaque pas de temps)
59c en debut de mois : nout=2
60c
61      IF(MOD(itap,NINT(ecrit_mth/dtime)).EQ.1.) THEN
62c
63       DO k=1, nlevSTD
64        DO i=1, klon
65         tnondef(i,k,2)=0.
66         tsumSTD(i,k,2)=0.
67        ENDDO !i
68       ENDDO !k
69c
70c initialisation variables mensuelles - runs type Amip - (calculees toutes les 6h)
71c en debut de mois : nout = 3
72c
73       DO k=1, nlevSTD
74        DO i=1, klon
75         tnondef(i,k,3)=0.
76         tsumSTD(i,k,3)=0.
77        ENDDO !i
78       ENDDO !k
79c
80      ENDIF
81c
82      RETURN
83      END 
Note: See TracBrowser for help on using the repository browser.