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/NST_SRC/agrif_opa_update.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/NST_SRC/agrif_opa_update.F90

    r1156 r1200  
    9595      USE wzvmod 
    9696      USE cla_div 
    97       USE  ocfzpt 
    9897 
    9998      INTEGER, INTENT(in) :: kt 
    … …  
    101100      ta = hdivb 
    102101      sa = rotb 
    103       CALL oc_fz_pt 
    104102      Call div_cur(kt) 
    105103 
Note: See TracChangeset for help on using the changeset viewer.