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 7693 for branches/UKMO/dev_r5518_MEDUSA_optim_RH/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 – NEMO

Ignore:
Timestamp:
2017-02-17T16:38:26+01:00 (7 years ago)
Author:
frrh
Message:

Merge in branches/NERC/dev_r5518_NOC_MEDUSA_Stable from revision range
r 5711:7611 (i.e. the entire branch)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_MEDUSA_optim_RH/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r7692 r7693  
    8787         tra(:,:,:,:) = 0.e0 
    8888         ! 
     89# if defined key_debug_medusa 
     90         IF(lwp) WRITE(numout,*) ' MEDUSA trc_stp begins at kt =', kt 
     91         CALL flush(numout) 
     92# endif 
    8993                                   CALL trc_rst_opn  ( kt )       ! Open tracer restart file  
     94# if defined key_debug_medusa 
     95                                   CALL trc_rst_stat  
     96                                   CALL trc_rst_tra_stat 
     97# endif 
    9098         IF( lrst_trc )            CALL trc_rst_cal  ( kt, 'WRITE' )   ! calendar 
    9199         IF( lk_iomput ) THEN  ;   CALL trc_wri      ( kt )       ! output of passive tracers with iom I/O manager 
    … …  
    93101         ENDIF 
    94102                                   CALL trc_sms      ( kt )       ! tracers: sinks and sources 
     103# if defined key_debug_medusa 
     104         IF(lwp) WRITE(numout,*) ' MEDUSA trc_stp SMS complete at kt =', kt 
     105         CALL trc_rst_stat 
     106         CALL trc_rst_tra_stat 
     107         CALL flush(numout) 
     108# endif 
    95109                                   CALL trc_trp      ( kt )       ! transport of passive tracers 
     110# if defined key_debug_medusa 
     111         IF(lwp) WRITE(numout,*) ' MEDUSA trc_stp transport complete at kt =', kt 
     112         CALL trc_rst_stat 
     113         CALL trc_rst_tra_stat 
     114         CALL flush(numout) 
     115# endif 
    96116         IF( kt == nittrc000 ) THEN 
    97117            CALL iom_close( numrtr )       ! close input tracer restart file 
    … …  
    102122         ! 
    103123         IF( nn_dttrc /= 1   )     CALL trc_sub_reset( kt )       ! resetting physical variables when sub-stepping 
     124# if defined key_debug_medusa 
     125         IF(lwp) WRITE(numout,*) ' MEDUSA trc_stp ends at kt =', kt 
     126         CALL flush(numout) 
     127# endif 
    104128         ! 
    105129      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.