Changeset 1697 for trunk/NEMO/OFF_SRC/IOM/iom.F90

Timestamp:

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

Author:

smasson

Message:

\!CDIR commands on the first column

File:

• trunk/NEMO/OFF_SRC/IOM/iom.F90 (modified) (1 diff)

trunk/NEMO/OFF_SRC/IOM/iom.F90

@@ -720 +720 @@
                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