/[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 30 by guez, Thu Apr 1 09:07:28 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: flinget, flinclo, flinopen_nozoom, flininfo
41        use histcom, only: histclo
42      use paramet_m, only: ip1jm, ip1jmp1      use paramet_m, only: ip1jm, ip1jmp1
43      use phyredem_m, only: phyredem      use phyredem_m, only: phyredem
44      use pressure_var, only: pls, p3d      use pressure_var, only: pls, p3d
# Line 48  contains Line 49  contains
49      USE start_init_orog_m, only: start_init_orog, mask, phis      USE start_init_orog_m, only: start_init_orog, mask, phis
50      use start_init_phys_m, only: qsol_2d      use start_init_phys_m, only: qsol_2d
51      use startdyn, only: start_inter_3d, start_init_dyn      use startdyn, only: start_inter_3d, start_init_dyn
52      use temps, only: itau_phy, annee_ref, day_ref, dt      use temps, only: itau_phy, annee_ref, day_ref
53    
54      ! Variables local to the procedure:      ! Variables local to the procedure:
55    
# Line 106  contains Line 107  contains
107      REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)      REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
108      REAL w(ip1jmp1, llm)      REAL w(ip1jmp1, llm)
109      REAL phystep      REAL phystep
110        real trash
111    
112      !---------------------------------      !---------------------------------
113    
# Line 220  contains Line 222  contains
222      ALLOCATE(dlat_lic(jml_lic))      ALLOCATE(dlat_lic(jml_lic))
223      ALLOCATE(fraclic(iml_lic, jml_lic))      ALLOCATE(fraclic(iml_lic, jml_lic))
224      CALL flinopen_nozoom("landiceref.nc", iml_lic, jml_lic, &      CALL flinopen_nozoom("landiceref.nc", iml_lic, jml_lic, &
225           llm_tmp, lon_lic, lat_lic, lev, ttm_tmp, itaul, date, dt,  &           llm_tmp, lon_lic, lat_lic, lev, ttm_tmp, itaul, date, trash,  &
226           fid)           fid)
227      CALL flinget(fid, 'landice', iml_lic, jml_lic, llm_tmp, ttm_tmp &      CALL flinget(fid, 'landice', iml_lic, jml_lic, llm_tmp, ttm_tmp &
228           , 1, 1, fraclic)           , 1, 1, fraclic)
Legend:
Removed from v.27  
changed lines
  Added in v.30
  ViewVC Help
Powered by ViewVC 1.1.21