New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 894 for trunk/NEMO/LIM_SRC_3/limdia.F90 – NEMO

Ignore:
Timestamp:
2008-04-21T14:36:04+02:00 (16 years ago)
Author:
rblod
Message:

Correct remaining bugs in LIM3 implementation, see ticket #71

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/LIM_SRC_3/limdia.F90

    r888 r894  
    421421       ! oututs on file ice_evolu     
    422422!MV      IF( MOD( numit , ninfo ) == 0 ) THEN 
    423           WRITE(90,fmtw) ( titvar(jv), vinfom(jv)/naveg, jv = 1, nvinfo ) 
     423          WRITE(numevo_ice,fmtw) ( titvar(jv), vinfom(jv)/naveg, jv = 1, nvinfo ) 
    424424          naveg = 0 
    425425          DO jv = 1, nvinfo 
     
    453453 
    454454       CHARACTER(len=jpchinf) ::   titinf 
     455       CHARACTER(len=50)      ::   clname 
    455456       !!------------------------------------------------------------------- 
    456457 
     
    576577 
    577578       ! opening  "ice_evolu" file 
     579       clname = 'ice.evolu' 
    578580       irecl = ( jpchinf + 1 ) * nvinfo  
    579        OPEN( 90, file='ice.evolu', status='unknown', RECL = irecl) 
    580        OPEN( 90, file='ice.evolu', status='unknown') 
     581       CALL ctlopn( numevo_ice, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 
     582          &         irecl, numout, lwp, 1 ) 
    581583 
    582584       !- ecriture de 2 lignes d''entete : 
    583        WRITE(90,1000) fmtr, fmtw, fmtitr, nvinfo, ntot, 0, nfrinf 
     585       WRITE(numevo_ice,1000) fmtr, fmtw, fmtitr, nvinfo, ntot, 0, nfrinf 
    584586       zxx0 = 0.001 * REAL(ninfo) 
    585587       zxx1 = 0.001 * REAL(ndeb) 
    586        WRITE(90,1111) REAL(jpchinf), 0., zxx1, zxx0, 0., 0., 0 
     588       WRITE(numevo_ice,1111) REAL(jpchinf), 0., zxx1, zxx0, 0., 0., 0 
    587589 
    588590       !- ecriture de 2 lignes de titre : 
    589        WRITE(90,'(A,I8,A,I8,A,I5)')                                      & 
     591       WRITE(numevo_ice,'(A,I8,A,I8,A,I5)')                                      & 
    590592          'Evolution chronologique - Experience '//cexper   & 
    591593          //'   de', ndeb, ' a', nferme, ' pas', ninfo 
    592        WRITE(90,fmtitr) ( titvar(jv), jv = 1, nvinfo ) 
     594       WRITE(numevo_ice,fmtitr) ( titvar(jv), jv = 1, nvinfo ) 
    593595 
    594596 
Note: See TracChangeset for help on using the changeset viewer.