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

Timestamp:

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

Author:

lmdz

Message:

Generalisation des if NC_DOUBLE pour passer sur VPP MAF
LF

File:

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

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

@@ -168 +168 @@
 c rajoute l'ecriture de la grille
 
-        status=NF_PUT_VARA_REAL(ncid_out,out_lonuid,1,iim+1,rlonudeg)
-        status=NF_PUT_VARA_REAL(ncid_out,out_lonvid,1,iim+1,rlonvdeg)
-        status=NF_PUT_VARA_REAL(ncid_out,out_latuid,1,jjm+1,rlatudeg)
-        status=NF_PUT_VARA_REAL(ncid_out,out_latvid,1,jjm,rlatvdeg)
+#ifdef NC_DOUBLE
+      status=NF_PUT_VARA_DOUBLE(ncid_out,out_lonuid,1,iim+1,rlonudeg)
+      status=NF_PUT_VARA_DOUBLE(ncid_out,out_lonvid,1,iim+1,rlonvdeg)
+      status=NF_PUT_VARA_DOUBLE(ncid_out,out_latuid,1,jjm+1,rlatudeg)
+      status=NF_PUT_VARA_DOUBLE(ncid_out,out_latvid,1,jjm,rlatvdeg)
+#else
+      status=NF_PUT_VARA_REAL(ncid_out,out_lonuid,1,iim+1,rlonudeg)
+      status=NF_PUT_VARA_REAL(ncid_out,out_lonvid,1,iim+1,rlonvdeg)
+      status=NF_PUT_VARA_REAL(ncid_out,out_latuid,1,jjm+1,rlatudeg)
+      status=NF_PUT_VARA_REAL(ncid_out,out_latvid,1,jjm,rlatvdeg)
+#endif
 
         start(1)=1
@@ -189 +196 @@
         enddo
 
+#ifdef NC_DOUBLE
+        status=NF_PUT_VARA_DOUBLE(ncid_out,out_varid,start,
+     s  count,temp)
+#else
         status=NF_PUT_VARA_REAL(ncid_out,out_varid,start,
      s  count,temp)
+#endif
+
 
 c fermeture du fichier netcdf