Changeset 218 for LMDZ.3.3/trunk/libf/dyn3d/read_dstoke.F

Timestamp:

May 14, 2001, 5:01:36 PM (23 years ago)

Author:

lmdz

Message:

Generalisation des if NC_DOUBLE pour passer sur VPP MAF
LF

File:

• LMDZ.3.3/trunk/libf/dyn3d/read_dstoke.F (modified) (1 diff)

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

@@ -42 +42 @@
         debut(2) = 1
 
+#ifdef NC_DOUBLE
+        status=NF_GET_VARA_DOUBLE(ncidfd,variddt,debut,epais,dtv)
+#else
         status=NF_GET_VARA_REAL(ncidfd,variddt,debut,epais,dtv)
+#endif
         zdtvr=dtv(1,1,1)
 
+#ifdef NC_DOUBLE
+        status=NF_GET_VARA_DOUBLE(ncidfd,varididvt,debut,epais,adv)
+#else
         status=NF_GET_VARA_REAL(ncidfd,varididvt,debut,epais,adv)
+#endif
         ziadvtrac= adv(1,1,1)
         
+#ifdef NC_DOUBLE
+        status=NF_GET_VARA_DOUBLE(ncidfd,varididvp,debut,epais,adv2)
+#else
         status=NF_GET_VARA_REAL(ncidfd,varididvp,debut,epais,adv2)
+#endif
         ziadvtrac2= adv2(1,1,1)