Changeset 2445

Timestamp:

2010-11-29T15:32:33+01:00 (13 years ago)

Author:

cetlod

Message:

suppression of line commenst

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90 (modified) (1 diff)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90

@@ -153 +153 @@
          END IF
          !
-!!gm simplier:                        CALL dynrea( kt, MAX( 1, iperm1) )
-           CALL dynrea( kt, MAX( 1, iperm1) )
-!!         IF( iperm1 /= 0 ) THEN   ;   CALL dynrea( kt, iperm1 )      ! data read for the iperm1 period
-!!         ELSE                     ;   CALL dynrea( kt, 1      )
-!!         ENDIF
+         CALL dynrea( kt, MAX( 1, iperm1) )           ! data read for the iperm1 period
          
          IF( lk_ldfslp .AND. .NOT. lk_c1d ) THEN      ! Computes slopes (here tsn and avt are used as workspace)