Changeset 2445


Ignore:
Timestamp:
2010-11-29T15:32:33+01:00 (10 years ago)
Author:
cetlod
Message:

suppression of line commenst

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90

    r2444 r2445  
    153153         END IF 
    154154         ! 
    155 !!gm simplier:                        CALL dynrea( kt, MAX( 1, iperm1) ) 
    156            CALL dynrea( kt, MAX( 1, iperm1) ) 
    157 !!         IF( iperm1 /= 0 ) THEN   ;   CALL dynrea( kt, iperm1 )      ! data read for the iperm1 period 
    158 !!         ELSE                     ;   CALL dynrea( kt, 1      ) 
    159 !!         ENDIF 
     155         CALL dynrea( kt, MAX( 1, iperm1) )           ! data read for the iperm1 period 
    160156          
    161157         IF( lk_ldfslp .AND. .NOT. lk_c1d ) THEN      ! Computes slopes (here tsn and avt are used as workspace) 
Note: See TracChangeset for help on using the changeset viewer.