Changeset 6241 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM
- Timestamp:
- 2016-01-13T16:55:23+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90
r6234 r6241 66 66 CALL trc_sbc( kstp ) ! surface boundary condition 67 67 # if defined key_debug_medusa 68 IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_sbc at kt =', k t68 IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_sbc at kt =', kstp 69 69 CALL trc_rst_tra_stat 70 70 CALL flush(numout) … … 75 75 CALL trc_adv( kstp ) ! horizontal & vertical advection 76 76 # if defined key_debug_medusa 77 IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_adv at kt =', k t77 IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_adv at kt =', kstp 78 78 CALL trc_rst_tra_stat 79 79 CALL flush(numout) … … 87 87 CALL trc_zdf( kstp ) ! vertical mixing and after tracer fields 88 88 # if defined key_debug_medusa 89 IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_zdf at kt =', k t89 IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_zdf at kt =', kstp 90 90 CALL trc_rst_tra_stat 91 91 CALL flush(numout) … … 93 93 CALL trc_nxt( kstp ) ! tracer fields at next time step 94 94 # if defined key_debug_medusa 95 IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_nxt at kt =', k t95 IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_nxt at kt =', kstp 96 96 CALL trc_rst_tra_stat 97 97 CALL flush(numout)
Note: See TracChangeset
for help on using the changeset viewer.