Changeset 677 for LMDZ4/trunk/libf/dyn3d/limit_netcdf.F

Timestamp:

Jan 27, 2006, 4:14:22 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Differentes corrections pour g95
LF

File:

• LMDZ4/trunk/libf/dyn3d/limit_netcdf.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3d/limit_netcdf.F

@@ -452 +452 @@
 
       ierr = NF_OPEN('amipbc_sic_1x1.nc', NF_NOWRITE, ncid)
-      if (ierr.ne.0) then
-        print *, NF_STRERROR(ierr)
-        STOP
+      if (ierr.ne.0) THEN
+        ierr = NF_OPEN('amipbc_sic_1x1_clim.nc', NF_NOWRITE, ncid)
+        if (ierr.ne.0) THEN
+          print *, NF_STRERROR(ierr)
+          STOP
+        endif
       ENDIF
 
@@ -775 +778 @@
 c     ierr = NF_OPEN('AMIP_SST.nc', NF_NOWRITE, ncid)
       ierr = NF_OPEN('amipbc_sst_1x1.nc', NF_NOWRITE, ncid)
-      if (ierr.ne.0) then
-        print *, NF_STRERROR(ierr)
-        STOP
+      if (ierr.ne.0) THEN
+        ierr = NF_OPEN('amipbc_sst_1x1_clim.nc', NF_NOWRITE, ncid)
+        if (ierr.ne.0) THEN
+          print *, NF_STRERROR(ierr)
+          STOP
+        endif
       ENDIF