- Timestamp:
- 2015-08-26T14:18:46+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5107_NOC_MEDUSA/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r4990 r5707 88 88 tra(:,:,:,:) = 0.e0 89 89 ! 90 # if defined key_debug_medusa 91 IF(lwp) WRITE(numout,*) ' MEDUSA trc_stp begins at kt =', kt 92 CALL flush(numout) 93 # endif 90 94 CALL trc_rst_opn ( kt ) ! Open tracer restart file 91 95 IF( lrst_trc ) CALL trc_rst_cal ( kt, 'WRITE' ) ! calendar … … 94 98 ENDIF 95 99 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 96 104 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 97 109 IF( kt == nittrc000 ) THEN 98 110 CALL iom_close( numrtr ) ! close input tracer restart file … … 103 115 ! 104 116 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 105 121 ! 106 122 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.