Changeset 1377

Timestamp:

04/20/11 11:37:27 (14 years ago)

Author:

mmaipsl

Message:

F90 norm correction : iilen and iim (resp jjlen and jjm) arguments of flinopen_work
in flinopen_nozoom can't be the same variable.
In flinopen_work, iilen and jjlen are never modified, but iim and jjm can be modified.

File:

• IOIPSL/trunk/src/flincom.f90 (modified) (1 diff)

IOIPSL/trunk/src/flincom.f90

@@ -341 +341 @@
   REAL :: date0, dt
   INTEGER :: fid_out
-!---------------------------------------------------------------------
+  INTEGER :: iimc, jjmc
+!---------------------------------------------------------------------
+  iimc=iim
+  jjmc=jjm
   CALL flinopen_work &
-    (filename, 1, iim, 1, jjm, do_test, &
+    (filename, 1, iimc, 1, jjmc, do_test, &
      iim, jjm, llm, lon, lat, lev, ttm, itaus, date0, dt, fid_out)
 !-------------------------