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 5737 for branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 – NEMO

Ignore:
Timestamp:
2015-09-13T09:42:41+02:00 (9 years ago)
Author:
gm
Message:

#1593: LDF-ADV, step I: Phasing of horizontal scale factors correct 2

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r5407 r5737  
    197197   END SUBROUTINE rst_read_open 
    198198 
     199 
    199200   SUBROUTINE rst_read 
    200201      !!----------------------------------------------------------------------  
     
    265266         hdivb(:,:,:)   = hdivn(:,:,:) 
    266267         sshb (:,:)     = sshn (:,:) 
    267  
     268         ! 
    268269         IF( lk_vvl ) THEN 
    269270            DO jk = 1, jpk 
     
    271272            END DO 
    272273         ENDIF 
    273  
     274         ! 
    274275      ENDIF 
    275276      ! 
Note: See TracChangeset for help on using the changeset viewer.