Changeset 1135 for LMDZ4/branches/LMDZ4-dev/libf/dyn3d/guide.F
- Timestamp:
- Mar 26, 2009, 1:30:23 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3d/guide.F
r1046 r1135 3 3 ! 4 4 subroutine guide(itau,ucov,vcov,teta,q,masse,ps) 5 6 use netcdf 5 7 6 8 IMPLICIT NONE … … 225 227 c lecture d'un fichier netcdf pour determiner le nombre de niveaux 226 228 if (guide_modele) then 227 if (ncidpl.eq.-99) ncidpl=NCOPN('apbp.nc',NCNOWRIT,rcod) 229 if (ncidpl.eq.-99) rcod=nf90_open('apbp.nc',Nf90_NOWRITe, 230 $ ncidpl) 228 231 else 229 232 if (guide_u) then 230 if (ncidpl.eq.-99) ncidpl=NCOPN('u.nc',NCNOWRIT,rcod)233 if (ncidpl.eq.-99) rcod=nf90_open('u.nc',Nf90_NOWRITe,ncidpl) 231 234 endif 232 235 c 233 236 if (guide_v) then 234 if (ncidpl.eq.-99) ncidpl=NCOPN('v.nc',NCNOWRIT,rcod)237 if (ncidpl.eq.-99) rcod=nf90_open('v.nc',nf90_nowrite,ncidpl) 235 238 endif 236 239 c 237 240 if (guide_T) then 238 if (ncidpl.eq.-99) ncidpl=NCOPN('T.nc',NCNOWRIT,rcod)241 if (ncidpl.eq.-99) rcod=nf90_open('T.nc',nf90_nowrite,ncidpl) 239 242 endif 240 243 c 241 244 if (guide_Q) then 242 if (ncidpl.eq.-99) ncidpl=NCOPN('hur.nc',NCNOWRIT,rcod) 245 if (ncidpl.eq.-99) rcod=nf90_open('hur.nc',nf90_nowrite, 246 $ ncidpl) 243 247 endif 244 248 c … … 251 255 status=NF_INQ_DIMLEN(ncidpl,rid,nlev) 252 256 print *,'nlev guide', nlev 253 call ncclos(ncidpl,rcod)257 rcod = nf90_close(ncidpl) 254 258 c Lecture du premier etat des reanalyses. 255 259 call read_reanalyse(1,ps
Note: See TracChangeset
for help on using the changeset viewer.