Changeset 4202


Ignore:
Timestamp:
2013-11-14T16:48:15+01:00 (8 years ago)
Author:
cetlod
Message:

trunk: bugfix in passive tracer substepping, see ticket #1177

Location:
trunk/NEMOGCM/NEMO/TOP_SRC
Files:
3 edited

Legend:

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

    r3680 r4202  
    145145 
    146146      ! 
    147       IF( nn_dttrc /= 1 )        CALL trc_sub_ini      ! Initialize variables for substepping passive tracers 
    148       ! 
    149  
    150147      trai(:) = 0._wp                                                   ! initial content of all tracers 
    151148      DO jn = 1, jptra 
  • trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r3680 r4202  
    5656      IF( nn_timing == 1 )   CALL timing_start('trc_stp') 
    5757      ! 
    58       IF( kt == nittrc000 .AND. lk_trdmld_trc )  CALL trd_mld_trc_init    ! trends: Mixed-layer 
    5958      ! 
    60       IF( lk_vvl ) THEN                                                   ! update ocean volume due to ssh temporal evolution 
     59      IF( kt == nit000 .AND. nn_dttrc /= 1 )     CALL trc_sub_ini        ! Initialize variables for substepping passive tracers 
     60      ! 
     61      IF( kt == nit000 .AND. lk_trdmld_trc )     CALL trd_mld_trc_init   ! trends: Mixed-layer 
     62      ! 
     63      IF( lk_vvl ) THEN                                                      ! update ocean volume due to ssh temporal evolution 
    6164         DO jk = 1, jpk 
    6265            cvol(:,:,jk) = e1e2t(:,:) * fse3t(:,:,jk) * tmask(:,:,jk) 
  • trunk/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

    r3905 r4202  
    550550      ENDIF 
    551551      ! 
    552       IF( nn_timing == 1 )  CALL timing_start('trc_sub_stp') 
     552      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_stp') 
    553553      ! 
    554554   END SUBROUTINE trc_sub_stp 
Note: See TracChangeset for help on using the changeset viewer.