/[lmdze]/trunk/libf/dyn3d/gcm.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/gcm.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 37 by guez, Tue Dec 21 15:45:48 2010 UTC revision 38 by guez, Thu Jan 6 17:52:19 2011 UTC
# Line 2  PROGRAM gcm Line 2  PROGRAM gcm
2    
3    ! Authors: P. Le Van, L. Fairhead, F. Hourdin    ! Authors: P. Le Van, L. Fairhead, F. Hourdin
4    ! From "gcm.F", version 1.4, 2006/04/04 15:05:16    ! From "gcm.F", version 1.4, 2006/04/04 15:05:16
5    ! General circulation model of LMD  
6    ! Avec coordonnées verticales hybrides, avec nouveaux opérateurs de    ! General circulation model of LMD. Avec coordonnée verticale
7    ! dissipation "*" (gradiv2, divgrad2, nxgraro2)    ! hybride, avec nouveaux opérateurs de dissipation "*" ("gradiv2",
8    ! Possibilité de choisir le schéma pour l'advection de "q", en    ! "divgrad2", "nxgraro2"). Possibilité de choisir le schéma pour
9    ! modifiant "iadv" dans "traceur.def".    ! l'advection de "q", en modifiant "iadv" dans "traceur.def".
   ! Pour Van-Leer plus vapeur d'eau saturée : iadv(1)=4  
   ! Pour Van-Leer : iadv=10  
10    
11    use clesphys2, only: read_clesphys2    use clesphys2, only: read_clesphys2
12    use com_io_dyn, only: histid, histvid, histaveid    use com_io_dyn, only: histid, histvid, histaveid
# Line 35  PROGRAM gcm Line 33  PROGRAM gcm
33    use suphec_m, only: suphec    use suphec_m, only: suphec
34    use temps, only: day_ref, annee_ref, day_end, itau_dyn    use temps, only: day_ref, annee_ref, day_end, itau_dyn
35    use tracstoke, only: istdyn, istphy    use tracstoke, only: istdyn, istphy
36      use yoethf_m, only: yoethf
37    
38    IMPLICIT NONE    IMPLICIT NONE
39    
# Line 146  PROGRAM gcm Line 145  PROGRAM gcm
145    
146       airephy = pack(aire_2d, dyn_phy)       airephy = pack(aire_2d, dyn_phy)
147       CALL suphec       CALL suphec
148         call yoethf
149    ENDIF    ENDIF
150    
151    ! Initialisation des entrées-sorties :    ! Initialisation des entrées-sorties :
Legend:
Removed from v.37  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.21