/[lmdze]/trunk/Sources/phylmd/clmain.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/clmain.f

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

revision 49 by guez, Wed Aug 24 11:43:14 2011 UTC revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC
# Line 44  contains Line 44  contains
44      USE dynetat0_m, ONLY : day_ini      USE dynetat0_m, ONLY : day_ini
45      USE gath_cpl, ONLY : gath2cpl      USE gath_cpl, ONLY : gath2cpl
46      use hbtm_m, only: hbtm      use hbtm_m, only: hbtm
47      USE histcom, ONLY : histbeg_totreg, histdef, histend, histsync      USE histsync_m, ONLY : histsync
48        USE histbeg_totreg_m, ONLY : histbeg_totreg
49        USE histend_m, ONLY : histend
50        USE histdef_m, ONLY : histdef
51      use histwrite_m, only: histwrite      use histwrite_m, only: histwrite
52      USE indicesol, ONLY : epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf      USE indicesol, ONLY : epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf
53      USE iniprint, ONLY : prt_level      USE conf_gcm_m, ONLY : prt_level
54      USE suphec_m, ONLY : rd, rg, rkappa      USE suphec_m, ONLY : rd, rg, rkappa
55      USE temps, ONLY : annee_ref, itau_phy      USE temps, ONLY : annee_ref, itau_phy
56      use yamada4_m, only: yamada4      use yamada4_m, only: yamada4
# Line 59  contains Line 62  contains
62      ! date0----input-R- jour initial      ! date0----input-R- jour initial
63      INTEGER, INTENT (IN) :: itap      INTEGER, INTENT (IN) :: itap
64      ! itap-----input-I- numero du pas de temps      ! itap-----input-I- numero du pas de temps
65      REAL t(klon, klev), q(klon, klev)      REAL, INTENT(IN):: t(klon, klev), q(klon, klev)
66      ! t--------input-R- temperature (K)      ! t--------input-R- temperature (K)
67      ! q--------input-R- vapeur d'eau (kg/kg)      ! q--------input-R- vapeur d'eau (kg/kg)
68      REAL, INTENT (IN):: u(klon, klev), v(klon, klev)      REAL, INTENT (IN):: u(klon, klev), v(klon, klev)
Legend:
Removed from v.49  
changed lines
  Added in v.61
  ViewVC Help
Powered by ViewVC 1.1.21