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 7894 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsms_medusa.F90 – NEMO

Ignore:
Timestamp:
2017-04-11T13:58:38+02:00 (7 years ago)
Author:
jpalmier
Message:

JPALM -- 11-04-2017 -- MEDUSA spring tidy-up refreshning session

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsms_medusa.F90

    r7766 r7894  
    5959 
    6060      CALL trc_avg_medusa( kt ) ! rolling average module 
     61 
    6162# if defined key_debug_medusa 
    6263      IF(lwp) WRITE(numout,*) ' MEDUSA done trc_avg_medusa' 
     
    6566       
    6667      CALL trc_opt_medusa( kt ) ! optical model 
     68 
    6769# if defined key_debug_medusa 
    6870      IF(lwp) WRITE(numout,*) ' MEDUSA done trc_opt_medusa' 
     
    7274      !! AXY & JPALM (28/02/17): call dust before trc_bio_medusa (because of coupling) 
    7375      CALL trc_sed_medusa_dust( kt ) ! dust submodel 
     76 
    7477# if defined key_debug_medusa 
    7578      IF(lwp) WRITE(numout,*) ' MEDUSA done trc_sed_medusa_dust' 
     
    7881 
    7982# if defined key_kill_medusa 
     83 
    8084      !! MEDUSA skipped 
    8185      IF(lwp) WRITE(numout,*) ' MEDUSA killed at kt =', kt 
     
    8387# else 
    8488      CALL trc_bio_medusa( kt ) ! biological model 
     89 
    8590#  if defined key_debug_medusa 
    8691      IF(lwp) WRITE(numout,*) ' MEDUSA done trc_bio_medusa' 
     
    8994       
    9095      CALL trc_sed_medusa( kt ) ! sedimentation model 
     96 
    9197#  if defined key_debug_medusa 
    9298      IF(lwp) WRITE(numout,*) ' MEDUSA done trc_sed_medusa' 
    9399      CALL flush(numout) 
    94100#  endif 
     101 
    95102# endif 
    96103 
Note: See TracChangeset for help on using the changeset viewer.