/[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 57 by guez, Mon Jan 30 12:54:02 2012 UTC
# Line 47  contains Line 47  contains
47      USE histcom, ONLY : histbeg_totreg, histdef, histend, histsync      USE histcom, ONLY : histbeg_totreg, histdef, histend, histsync
48      use histwrite_m, only: histwrite      use histwrite_m, only: histwrite
49      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
50      USE iniprint, ONLY : prt_level      USE conf_gcm_m, ONLY : prt_level
51      USE suphec_m, ONLY : rd, rg, rkappa      USE suphec_m, ONLY : rd, rg, rkappa
52      USE temps, ONLY : annee_ref, itau_phy      USE temps, ONLY : annee_ref, itau_phy
53      use yamada4_m, only: yamada4      use yamada4_m, only: yamada4
# Line 59  contains Line 59  contains
59      ! date0----input-R- jour initial      ! date0----input-R- jour initial
60      INTEGER, INTENT (IN) :: itap      INTEGER, INTENT (IN) :: itap
61      ! itap-----input-I- numero du pas de temps      ! itap-----input-I- numero du pas de temps
62      REAL t(klon, klev), q(klon, klev)      REAL, INTENT(IN):: t(klon, klev), q(klon, klev)
63      ! t--------input-R- temperature (K)      ! t--------input-R- temperature (K)
64      ! q--------input-R- vapeur d'eau (kg/kg)      ! q--------input-R- vapeur d'eau (kg/kg)
65      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.57
  ViewVC Help
Powered by ViewVC 1.1.21