Changeset 7293 for branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

Timestamp:

2016-11-21T16:27:53+01:00 (7 years ago)

Author:

vancop

Message:

Commit infrastructure for melt pond impletation

File:

• branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90 (modified) (2 diffs)

branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -48 +48 @@
    USE limvar          ! Ice variables switch
 
+   ! MV MP 2016
+   USE limmp
+   ! END MV MP 2016
+
    USE limistate       ! LIM initial state
    USE limthd_sal      ! LIM ice thermodynamics: salinity
@@ -336 +340 @@
       !
       CALL lim_thd_sal_init            ! set ice salinity parameters
-      !
+       
+      ! MV MP 2016
+      CALL lim_mp_init                 ! set melt ponds parameters
+      ! END MV MP 2016
+
       IF( ln_limdyn )   CALL lim_itd_me_init             ! ice thickness distribution initialization for mecanical deformation
       !                                ! Initial sea-ice state