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 – NEMO

Changeset 1697


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

\!CDIR commands on the first column

Location:
trunk/NEMO
Files:
5 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 ) ) ) 

  • trunk/NEMO/OFF_SRC/IOM/iom.F90

    r1487 r1697  
    720720               IF( zofs /= 0. )   pv_r1d(:) = pv_r1d(:) + zofs 
    721721            ELSEIF( PRESENT(pv_r2d) ) THEN 
    722                !CDIR COLLAPSE 
     722!CDIR COLLAPSE 
    723723               IF( zscf /= 1.)   pv_r2d(:,:) = pv_r2d(:,:) * zscf 
    724                !CDIR COLLAPSE 
     724!CDIR COLLAPSE 
    725725               IF( zofs /= 0.)   pv_r2d(:,:) = pv_r2d(:,:) + zofs 
    726726            ELSEIF( PRESENT(pv_r3d) ) THEN 
    727                !CDIR COLLAPSE 
     727!CDIR COLLAPSE 
    728728               IF( zscf /= 1.)   pv_r3d(:,:,:) = pv_r3d(:,:,:) * zscf 
    729                !CDIR COLLAPSE 
     729!CDIR COLLAPSE 
    730730               IF( zofs /= 0.)   pv_r3d(:,:,:) = pv_r3d(:,:,:) + zofs 
    731731            ENDIF 

  • trunk/NEMO/OPA_SRC/IOM/iom.F90

    r1520 r1697  
    721721               IF( zofs /= 0. )   pv_r1d(:) = pv_r1d(:) + zofs 
    722722            ELSEIF( PRESENT(pv_r2d) ) THEN 
    723                !CDIR COLLAPSE 
     723!CDIR COLLAPSE 
    724724               IF( zscf /= 1.)   pv_r2d(:,:) = pv_r2d(:,:) * zscf 
    725                !CDIR COLLAPSE 
     725!CDIR COLLAPSE 
    726726               IF( zofs /= 0.)   pv_r2d(:,:) = pv_r2d(:,:) + zofs 
    727727            ELSEIF( PRESENT(pv_r3d) ) THEN 
    728                !CDIR COLLAPSE 
     728!CDIR COLLAPSE 
    729729               IF( zscf /= 1.)   pv_r3d(:,:,:) = pv_r3d(:,:,:) * zscf 
    730                !CDIR COLLAPSE 
     730!CDIR COLLAPSE 
    731731               IF( zofs /= 0.)   pv_r3d(:,:,:) = pv_r3d(:,:,:) + zofs 
    732732            ENDIF 

  • trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

    r1696 r1697  
    673673         IF( llnewtau ) THEN  
    674674            zcoef = 1. / ( zrhoa * zcdrag )  
    675             !CDIR NOVERRCHK 
     675!CDIR NOVERRCHK 
    676676            DO jj = 1, jpj 
    677                !CDIR NOVERRCHK 
     677!CDIR NOVERRCHK 
    678678               DO ji = 1, jpi  
    679679                  frcv(ji,jj,jpr_w10m) = SQRT( frcv(ji,jj,jpr_taum) * zcoef ) 
Note: See TracChangeset for help on using the changeset viewer.