Changeset 356 for LMDZ.3.3/trunk/libf/dyn3d/read_reanalyse.F

Timestamp:

Apr 2, 2002, 4:17:16 PM (22 years ago)

Author:

lmdz

Message:

Lecture du fichier netcdf pour determination du nombre de niveaux verticaux MAF
LF

File:

• LMDZ.3.3/trunk/libf/dyn3d/read_reanalyse.F (modified) (2 diffs)

LMDZ.3.3/trunk/libf/dyn3d/read_reanalyse.F

@@ -2 +2 @@
 c $Header$
 c
-      subroutine read_reanalyse(timestep,u,v,t,masse,ps,mode)
+      subroutine read_reanalyse(timestep,u,v,t,masse,ps,mode,nlevnc)
 
 c   mode=0 variables naturelles
@@ -15 +15 @@
 
       integer nlevnc
-      parameter (nlevnc=15)
-C pour annee 2000      parameter (nlevnc=21)
+c      parameter (nlevnc=15)
+C pour annee 2000      
+c      parameter (nlevnc=21)
       integer timestep,mode,l