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 4747 for branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 – NEMO

Ignore:
Timestamp:
2014-08-15T16:32:52+02:00 (10 years ago)
Author:
mathiot
Message:

ISF branch: change to deal with non mask bathymetry (land processor definition, building bathy and ice shelf draft variable), update of hpg (definition of ze3wu in case of zps and vvl) and bfr (in case of 2 cell water column thickness, each cell feels top and bottom friction).

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r4666 r4747  
    220220      ENDIF 
    221221      ! 
    222       IF( lk_vvl ) THEN     ! need it for (ISF) 
    223                      CALL iom_get( numror, jpdom_autoglo, 'fse3t_b', fse3t_b(:,:,:) ) 
    224                      CALL iom_get( numror, jpdom_autoglo, 'fse3t  ', fse3t  (:,:,:) ) 
    225                      CALL iom_get( numror, jpdom_autoglo, 'fse3w  ', fse3w  (:,:,:) ) 
    226                      CALL iom_get( numror, jpdom_autoglo, 'fsdepw ', fsdepw (:,:,:) ) 
    227       END IF 
    228222      CALL iom_get( numror, jpdom_autoglo, 'un'     , un      )   ! now    fields 
    229223      CALL iom_get( numror, jpdom_autoglo, 'vn'     , vn      ) 
Note: See TracChangeset for help on using the changeset viewer.