Changeset 8076 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/detritus.F90

Timestamp:

2017-05-26T10:17:21+02:00 (7 years ago)

Author:

marc

Message:

Removed wrk_alloc and wrk_dealloc from bio_medusa_* routines

File:

• branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/detritus.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/detritus.F90

@@ -60 +60 @@
             !! OPEN wet point IF..THEN loop
             if (tmask(ji,jj,jk) == 1) then
-
                !!
                if (jmd.eq.1) then