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 1200 for trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90 – NEMO

Ignore:
Timestamp:
2008-09-24T15:05:20+02:00 (16 years ago)
Author:
rblod
Message:

Adapt Agrif to the new SBC and correct several bugs for agrif (restart writing and reading), see ticket #133
Note : this fix does not work yet on NEC computerq (sxf90/360)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90

    r1158 r1200  
    141141 
    142142         ! read filtered free surface arrays in restart file 
    143          CALL flt_rst( nit000, 'READ' )       ! read or initialize the following fields: 
    144          !                                    ! gcx, gcxb, sshb, sshn 
     143         ! when using agrif, sshn, gcx have to be read in istate 
     144         IF (.NOT. lk_agrif) CALL flt_rst( nit000, 'READ' )       ! read or initialize the following fields: 
     145         !                                                        ! gcx, gcxb, sshb, sshn 
    145146      ENDIF 
    146147 
Note: See TracChangeset for help on using the changeset viewer.