- Timestamp:
- 2016-01-13T14:36:18+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90
r5729 r6234 65 65 ! 66 66 CALL trc_sbc( kstp ) ! surface boundary condition 67 # if defined key_debug_medusa 68 IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_sbc at kt =', kt 69 CALL trc_rst_tra_stat 70 CALL flush(numout) 71 # endif 67 72 IF( lk_trabbl ) CALL trc_bbl( kstp ) ! advective (and/or diffusive) bottom boundary layer scheme 68 73 IF( ln_trcdmp ) CALL trc_dmp( kstp ) ! internal damping trends 69 74 IF( ln_trcdmp_clo ) CALL trc_dmp_clo( kstp ) ! internal damping trends on closed seas only 70 75 CALL trc_adv( kstp ) ! horizontal & vertical advection 76 # if defined key_debug_medusa 77 IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_adv at kt =', kt 78 CALL trc_rst_tra_stat 79 CALL flush(numout) 80 # endif 71 81 CALL trc_ldf( kstp ) ! lateral mixing 72 82 IF( .NOT. lk_offline .AND. lk_zdfkpp ) & … … 76 86 #endif 77 87 CALL trc_zdf( kstp ) ! vertical mixing and after tracer fields 88 # if defined key_debug_medusa 89 IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_zdf at kt =', kt 90 CALL trc_rst_tra_stat 91 CALL flush(numout) 92 # endif 78 93 CALL trc_nxt( kstp ) ! tracer fields at next time step 94 # if defined key_debug_medusa 95 IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_nxt at kt =', kt 96 CALL trc_rst_tra_stat 97 CALL flush(numout) 98 # endif 79 99 IF( ln_trcrad ) CALL trc_rad( kstp ) ! Correct artificial negative concentrations 80 100
Note: See TracChangeset
for help on using the changeset viewer.