Changeset 1697 for trunk/NEMO/OPA_SRC

Timestamp:

2009-10-31T13:27:19+01:00 (15 years ago)

Author:

smasson

Message:

\!CDIR commands on the first column

Location:

trunk/NEMO/OPA_SRC

Files:

• IOM/iom.F90 (modified) (1 diff)
• SBC/sbccpl.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/IOM/iom.F90

@@ -721 +721 @@
                IF( zofs /= 0. )   pv_r1d(:) = pv_r1d(:) + zofs
             ELSEIF( PRESENT(pv_r2d) ) THEN
-               !CDIR COLLAPSE
+!CDIR COLLAPSE
                IF( zscf /= 1.)   pv_r2d(:,:) = pv_r2d(:,:) * zscf
-               !CDIR COLLAPSE
+!CDIR COLLAPSE
                IF( zofs /= 0.)   pv_r2d(:,:) = pv_r2d(:,:) + zofs
             ELSEIF( PRESENT(pv_r3d) ) THEN
-               !CDIR COLLAPSE
+!CDIR COLLAPSE
                IF( zscf /= 1.)   pv_r3d(:,:,:) = pv_r3d(:,:,:) * zscf
-               !CDIR COLLAPSE
+!CDIR COLLAPSE
                IF( zofs /= 0.)   pv_r3d(:,:,:) = pv_r3d(:,:,:) + zofs
             ENDIF

trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -673 +673 @@
          IF( llnewtau ) THEN 
             zcoef = 1. / ( zrhoa * zcdrag ) 
-            !CDIR NOVERRCHK
+!CDIR NOVERRCHK
             DO jj = 1, jpj
-               !CDIR NOVERRCHK
+!CDIR NOVERRCHK
                DO ji = 1, jpi 
                   frcv(ji,jj,jpr_w10m) = SQRT( frcv(ji,jj,jpr_taum) * zcoef )