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 14223 for NEMO/trunk/src/OCE/USR – NEMO

Ignore:
Timestamp:
2020-12-19T11:22:45+01:00 (4 years ago)
Author:
smasson
Message:

trunk: remove patch for compatibility with the old trunk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/OCE/USR/usrdef_hgr.F90

    r13295 r14223  
    115115      ENDIF 
    116116      !    
    117       DO_2D( 1, 1, 1, 1 ) 
    118          zim1 = REAL( mig0_oldcmp(ji), wp ) - 1.   ;   zim05 = REAL( mig0_oldcmp(ji), wp ) - 1.5 
    119          zjm1 = REAL( mjg0_oldcmp(jj), wp ) - 1.   ;   zjm05 = REAL( mjg0_oldcmp(jj), wp ) - 1.5 
     117      DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 
     118         zim1 = REAL( mig0(ji), wp ) - 1.   ;   zim05 = REAL( mig0(ji), wp ) - 1.5 
     119         zjm1 = REAL( mjg0(jj), wp ) - 1.   ;   zjm05 = REAL( mjg0(jj), wp ) - 1.5 
    120120         !    
    121121         !glamt(i,j) longitude at T-point 
Note: See TracChangeset for help on using the changeset viewer.