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

Last change on this file since 703 was 684, checked in by lmdzadmin, 19 years ago

Ajout nouveaux flags (ip_ebil_phy, ok_slab_sicOBS) ds physiq.def +
Lecture freq. ecriture en nombre de jours
IM

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