Changeset 1377 for IOIPSL


Ignore:
Timestamp:
04/20/11 11:37:27 (13 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:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/flincom.f90

    r427 r1377  
    341341  REAL :: date0, dt 
    342342  INTEGER :: fid_out 
    343 !--------------------------------------------------------------------- 
     343  INTEGER :: iimc, jjmc 
     344!--------------------------------------------------------------------- 
     345  iimc=iim 
     346  jjmc=jjm 
    344347  CALL flinopen_work & 
    345     (filename, 1, iim, 1, jjm, do_test, & 
     348    (filename, 1, iimc, 1, jjmc, do_test, & 
    346349     iim, jjm, llm, lon, lat, lev, ttm, itaus, date0, dt, fid_out) 
    347350!------------------------- 
Note: See TracChangeset for help on using the changeset viewer.