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 2555 for trunk/NEMOGCM – NEMO

Changeset 2555 for trunk/NEMOGCM


Ignore:
Timestamp:
2011-01-13T16:58:17+01:00 (13 years ago)
Author:
cetlod
Message:

minor bug correction on trcini.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r2528 r2555  
    128128           CALL day_init               ! set calendar 
    129129        ENDIF 
    130         IF( lk_dtatrc )  THEN 
    131            CALL trc_dta( nit000 )      ! Initialization of tracer from a file that may also be used for damping 
    132            DO jn = 1, jptra 
    133               IF( lutini(jn) )   trn(:,:,:,jn) = trdta(:,:,:,jn) * tmask(:,:,:)   ! initialisation from file if required 
    134            END DO 
    135         ENDIF  
     130#if defined key_dtatrc 
     131        CALL trc_dta( nit000 )      ! Initialization of tracer from a file that may also be used for damping 
     132        DO jn = 1, jptra 
     133           IF( lutini(jn) )   trn(:,:,:,jn) = trdta(:,:,:,jn) * tmask(:,:,:)   ! initialisation from file if required 
     134        END DO 
     135#endif 
    136136        trb(:,:,:,:) = trn(:,:,:,:) 
    137137        !  
Note: See TracChangeset for help on using the changeset viewer.