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

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

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

revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC
# Line 37  contains Line 37  contains
37      use iniadvtrac_m, only: iniadvtrac      use iniadvtrac_m, only: iniadvtrac
38      use inidissip_m, only: inidissip      use inidissip_m, only: inidissip
39      use inigeom_m, only: inigeom      use inigeom_m, only: inigeom
40      USE ioipsl, only: flinget, flinclo, flinopen_nozoom, flininfo, histclo      USE flincom, only: flinclo, flinopen_nozoom, flininfo
41        use flinget_m, only: flinget
42        use histcom, only: histclo
43      use paramet_m, only: ip1jm, ip1jmp1      use paramet_m, only: ip1jm, ip1jmp1
44      use phyredem_m, only: phyredem      use phyredem_m, only: phyredem
45      use pressure_var, only: pls, p3d      use pressure_var, only: pls, p3d
# Line 48  contains Line 50  contains
50      USE start_init_orog_m, only: start_init_orog, mask, phis      USE start_init_orog_m, only: start_init_orog, mask, phis
51      use start_init_phys_m, only: qsol_2d      use start_init_phys_m, only: qsol_2d
52      use startdyn, only: start_inter_3d, start_init_dyn      use startdyn, only: start_inter_3d, start_init_dyn
53      use temps, only: itau_phy, annee_ref, day_ref, dt      use temps, only: itau_phy, annee_ref, day_ref
54    
55      ! Variables local to the procedure:      ! Variables local to the procedure:
56    
# Line 106  contains Line 108  contains
108      REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)      REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
109      REAL w(ip1jmp1, llm)      REAL w(ip1jmp1, llm)
110      REAL phystep      REAL phystep
111        real trash
112    
113      !---------------------------------      !---------------------------------
114    
# Line 219  contains Line 222  contains
222      ALLOCATE(dlon_lic(iml_lic))      ALLOCATE(dlon_lic(iml_lic))
223      ALLOCATE(dlat_lic(jml_lic))      ALLOCATE(dlat_lic(jml_lic))
224      ALLOCATE(fraclic(iml_lic, jml_lic))      ALLOCATE(fraclic(iml_lic, jml_lic))
225      CALL flinopen_nozoom("landiceref.nc", iml_lic, jml_lic, &      CALL flinopen_nozoom(iml_lic, jml_lic, &
226           llm_tmp, lon_lic, lat_lic, lev, ttm_tmp, itaul, date, dt,  &           llm_tmp, lon_lic, lat_lic, lev, ttm_tmp, itaul, date, trash,  &
227           fid)           fid)
228      CALL flinget(fid, 'landice', iml_lic, jml_lic, llm_tmp, ttm_tmp &      CALL flinget(fid, 'landice', iml_lic, jml_lic, llm_tmp, ttm_tmp &
229           , 1, 1, fraclic)           , 1, 1, fraclic)
Legend:
Removed from v.27  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21