Changeset 8074 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsms_medusa.F90

Timestamp:

2017-05-25T18:43:39+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- reverse MEDUSA cleaning and update MOCSY

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsms_medusa.F90 (modified) (6 diffs)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsms_medusa.F90

@@ -59 +59 @@
 
       CALL trc_avg_medusa( kt ) ! rolling average module
-
 # if defined key_debug_medusa
       IF(lwp) WRITE(numout,*) ' MEDUSA done trc_avg_medusa'
@@ -66 +65 @@
       
       CALL trc_opt_medusa( kt ) ! optical model
-
 # if defined key_debug_medusa
       IF(lwp) WRITE(numout,*) ' MEDUSA done trc_opt_medusa'
@@ -74 +72 @@
       !! AXY & JPALM (28/02/17): call dust before trc_bio_medusa (because of coupling)
       CALL trc_sed_medusa_dust( kt ) ! dust submodel
-
 # if defined key_debug_medusa
       IF(lwp) WRITE(numout,*) ' MEDUSA done trc_sed_medusa_dust'
@@ -81 +78 @@
 
 # if defined key_kill_medusa
-
       !! MEDUSA skipped
       IF(lwp) WRITE(numout,*) ' MEDUSA killed at kt =', kt
@@ -87 +83 @@
 # else
       CALL trc_bio_medusa( kt ) ! biological model
-
 #  if defined key_debug_medusa
       IF(lwp) WRITE(numout,*) ' MEDUSA done trc_bio_medusa'
@@ -94 +89 @@
       
       CALL trc_sed_medusa( kt ) ! sedimentation model
-
 #  if defined key_debug_medusa
       IF(lwp) WRITE(numout,*) ' MEDUSA done trc_sed_medusa'
       CALL flush(numout)
 #  endif
-
 # endif