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 1697 for trunk/NEMO/LIM_SRC_2 – NEMO

Changeset 1697 for trunk/NEMO/LIM_SRC_2


Ignore:
Timestamp:
2009-10-31T13:27:19+01:00 (14 years ago)
Author:
smasson
Message:

\!CDIR commands on the first column

Location:
trunk/NEMO/LIM_SRC_2
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/LIM_SRC_2/limthd_2.F90

    r1565 r1697  
    173173      sst_m(:,:) = sst_m(:,:) + rt0 
    174174 
    175       !CDIR NOVERRCHK 
    176       DO jj = 1, jpj 
    177          !CDIR NOVERRCHK 
     175!CDIR NOVERRCHK 
     176      DO jj = 1, jpj 
     177!CDIR NOVERRCHK 
    178178         DO ji = 1, jpi 
    179179            zthsnice       = hsnif(ji,jj) + hicif(ji,jj) 

  • trunk/NEMO/LIM_SRC_2/limthd_lac_2.F90

    r1465 r1697  
    132132      !--------------------------------------------------------------------- 
    133133       
    134       !CDIR NOVERRCHK 
     134!CDIR NOVERRCHK 
    135135      DO ji = kideb , kiut 
    136136         iicefr       = 1 - MAX( 0, INT( SIGN( 1.5 * zone , zfrl_old(ji) - 1.0 + epsi13 ) ) ) 
Note: See TracChangeset for help on using the changeset viewer.