Changeset 3242


Ignore:
Timestamp:
2012-01-03T16:08:02+01:00 (9 years ago)
Author:
cetlod
Message:

Minor bugfix related to OFFLINE

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r3192 r3242  
    7878      CALL trc_nam                  ! read passive tracers namelists 
    7979      !                                                              ! masked grid volume 
     80      IF( lk_offline )  THEN 
     81         IF( ln_rsttr ) THEN 
     82            neuler = 1   ! Set time-step indicator at nit000 (leap-frog) 
     83         ELSE 
     84            neuler = 0                  ! Set time-step indicator at nit000 (euler) 
     85            CALL day_init               ! set calendar 
     86        ENDIF 
     87      ENDIF 
     88      !                                                              ! masked grid volume 
    8089      DO jk = 1, jpk 
    8190         cvol(:,:,jk) = e1e2t(:,:) * fse3t(:,:,jk) * tmask(:,:,jk) 
     
    115124      IF( ln_rsttr ) THEN 
    116125        ! 
    117         IF( lk_offline )  neuler = 1   ! Set time-step indicator at nit000 (leap-frog) 
    118126        CALL trc_rst_read              ! restart from a file 
    119127        ! 
    120128      ELSE 
    121         IF( lk_offline )  THEN 
    122            neuler = 0                  ! Set time-step indicator at nit000 (euler) 
    123            CALL day_init               ! set calendar 
    124         ENDIF 
     129        ! 
    125130        IF( ln_trcdta .AND. nb_trcdta > 0 ) THEN  ! Initialisation of tracer from a file that may also be used for damping 
    126131            ! 
Note: See TracChangeset for help on using the changeset viewer.