Changeset 7894 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsms_medusa.F90
- Timestamp:
- 2017-04-11T13:58:38+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsms_medusa.F90
r7766 r7894 59 59 60 60 CALL trc_avg_medusa( kt ) ! rolling average module 61 61 62 # if defined key_debug_medusa 62 63 IF(lwp) WRITE(numout,*) ' MEDUSA done trc_avg_medusa' … … 65 66 66 67 CALL trc_opt_medusa( kt ) ! optical model 68 67 69 # if defined key_debug_medusa 68 70 IF(lwp) WRITE(numout,*) ' MEDUSA done trc_opt_medusa' … … 72 74 !! AXY & JPALM (28/02/17): call dust before trc_bio_medusa (because of coupling) 73 75 CALL trc_sed_medusa_dust( kt ) ! dust submodel 76 74 77 # if defined key_debug_medusa 75 78 IF(lwp) WRITE(numout,*) ' MEDUSA done trc_sed_medusa_dust' … … 78 81 79 82 # if defined key_kill_medusa 83 80 84 !! MEDUSA skipped 81 85 IF(lwp) WRITE(numout,*) ' MEDUSA killed at kt =', kt … … 83 87 # else 84 88 CALL trc_bio_medusa( kt ) ! biological model 89 85 90 # if defined key_debug_medusa 86 91 IF(lwp) WRITE(numout,*) ' MEDUSA done trc_bio_medusa' … … 89 94 90 95 CALL trc_sed_medusa( kt ) ! sedimentation model 96 91 97 # if defined key_debug_medusa 92 98 IF(lwp) WRITE(numout,*) ' MEDUSA done trc_sed_medusa' 93 99 CALL flush(numout) 94 100 # endif 101 95 102 # endif 96 103
Note: See TracChangeset
for help on using the changeset viewer.