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 991 for branches/dev_003_CPL/NEMO/LIM_SRC_3/limrst.F90 – NEMO

Ignore:
Timestamp:
2008-05-23T17:55:55+02:00 (16 years ago)
Author:
smasson
Message:

dev_003_CPL: preliminary draft (not working), see ticket #155

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_003_CPL/NEMO/LIM_SRC_3/limrst.F90

    r990 r991  
    138138         CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 
    139139      END DO 
    140 # if defined key_coupled 
    141       CALL iom_rstput( iter, nitrst, numriw, 'albege', albege(:,:) ) 
    142 # endif 
    143140      DO jl = 1, jpl  
    144141         WRITE(zchar,'(I1)') jl 
    … …  
    498495      ENDIF 
    499496 
    500 # if defined key_coupled  
    501       CALL iom_get( numrir, jpdom_autoglo, 'albege'   , albege ) 
    502 # endif 
    503497      DO jl = 1, jpl  
    504498         WRITE(zchar,'(I1)') jl 
Note: See TracChangeset for help on using the changeset viewer.