Changeset 217 for LMDZ.3.3/trunk/libf

Timestamp:

May 10, 2001, 12:40:04 PM (24 years ago)

Author:

lmdz

Message:

Pb de NC_DOUBLE sur VPP MAF
LF

File:

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

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

@@ -15 +15 @@
 
       integer nlevnc
-cModef 11-2-99      parameter (nlevnc=15)
-      parameter (nlevnc=21)
+      parameter (nlevnc=15)
+C pour annee 2000      parameter (nlevnc=21)
       integer timestep,mode,l
 
@@ -73 +73 @@
       print*,'WARNING!!! Il n y a pas de test de coherence'
       print*,'sur le nombre de niveaux verticaux dans le fichier nc'
+#ifdef NC_DOUBLE
+      status=NF_GET_VARA_DOUBLE(ncidu,varidpl,1,nlevnc,pl)
+#else
       status=NF_GET_VARA_REAL(ncidu,varidpl,1,nlevnc,pl)
-
+#endif
       start(1)=1
       start(2)=1
@@ -86 +89 @@
 
 c  u
+#ifdef NC_DOUBLE
+      status=NF_GET_VARA_DOUBLE(ncidu,varidu,start,count,unc)
+#else
       status=NF_GET_VARA_REAL(ncidu,varidu,start,count,unc)
+#endif
       print*,'WARNING!!! Correction bidon pour palier a un '
       print*,'probleme dans la creation des fichiers nc'
@@ -92 +99 @@
 c     call dump2d(iip1,jjp1,unc,'UNC COUCHE 1 ')
 c  T
+#ifdef NC_DOUBLE
+      status=NF_GET_VARA_DOUBLE(ncidt,varidt,start,count,tnc)
+#else
       status=NF_GET_VARA_REAL(ncidt,varidt,start,count,tnc)
+#endif
       call correctbid(iim,jjp1*nlevnc,tnc)
 c     call dump2d(iip1,jjp1,tnc,'TNC COUCHE 1 ')
@@ -98 +109 @@
       count(2)=jjm
 c  v
+#ifdef NC_DOUBLE
+      status=NF_GET_VARA_DOUBLE(ncidv,varidv,start,count,vnc)
+#else
       status=NF_GET_VARA_REAL(ncidv,varidv,start,count,vnc)
+#endif
       call correctbid(iim,jjm*nlevnc,vnc)
 c     call dump2d(iip1,jjm,vnc,'VNC COUCHE 1 ')
@@ -108 +123 @@
       count(4)=0
 c  ps
+C#ifdef NC_DOUBLE
+c     status=NF_GET_VARA_DOUBLE(ncidps,varidps,start,count,psnc)
+C#else
 c     status=NF_GET_VARA_REAL(ncidps,varidps,start,count,psnc)
+C#endif
 c     call dump2d(iip1,jjp1,psnc,'PSNC COUCHE 1 ')
 c     call correctbid(iim,jjp1,psnc)