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 5707 for branches/NERC/dev_r5107_NOC_MEDUSA/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 – NEMO

Ignore:
Timestamp:
2015-08-26T14:18:46+02:00 (9 years ago)
Author:
acc
Message:

JPALM --25-08-2015 -- add MEDUSA in the branch. MEDUSA version already up-to-date with this trunk revision

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5107_NOC_MEDUSA/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r4990 r5707  
    8888         tra(:,:,:,:) = 0.e0 
    8989         ! 
     90# if defined key_debug_medusa 
     91         IF(lwp) WRITE(numout,*) ' MEDUSA trc_stp begins at kt =', kt 
     92         CALL flush(numout) 
     93# endif 
    9094                                   CALL trc_rst_opn  ( kt )       ! Open tracer restart file  
    9195         IF( lrst_trc )            CALL trc_rst_cal  ( kt, 'WRITE' )   ! calendar 
     
    9498         ENDIF 
    9599                                   CALL trc_sms      ( kt )       ! tracers: sinks and sources 
     100# if defined key_debug_medusa 
     101         IF(lwp) WRITE(numout,*) ' MEDUSA trc_stp SMS complete at kt =', kt 
     102         CALL flush(numout) 
     103# endif 
    96104                                   CALL trc_trp      ( kt )       ! transport of passive tracers 
     105# if defined key_debug_medusa 
     106         IF(lwp) WRITE(numout,*) ' MEDUSA trc_stp transport complete at kt =', kt 
     107         CALL flush(numout) 
     108# endif 
    97109         IF( kt == nittrc000 ) THEN 
    98110            CALL iom_close( numrtr )       ! close input tracer restart file 
     
    103115         ! 
    104116         IF( nn_dttrc /= 1   )     CALL trc_sub_reset( kt )       ! resetting physical variables when sub-stepping 
     117# if defined key_debug_medusa 
     118         IF(lwp) WRITE(numout,*) ' MEDUSA trc_stp ends at kt =', kt 
     119         CALL flush(numout) 
     120# endif 
    105121         ! 
    106122      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.