Changeset 7293 for branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limistate.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/LIM_SRC_3/limistate.F90 (modified) (2 diffs)

branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

@@ -407 +407 @@
          at_i (:,:) = at_i (:,:) + a_i (:,:,jl)
       END DO
+
+      ! MV MP 2016
+
+      ! For now, we just assume that melt ponds are absent initially
+      ! We probably have to revise this and code it as for all other sea ice variables later on
       !
+      !--------------------------------------------------------------------
+      ! X) Melt pond variables
+      !--------------------------------------------------------------------
+      !
+      IF ( ln_limMP ) THEN
+         a_ip(:,:,:) = 0._wp
+         v_ip(:,:,:) = 0._wp
+         h_ip(:,:,:) = 0._wp
+         a_ip_frac(:,:,:) = 0._wp
+
+         at_ip(:,:) = 0._wp
+         vt_ip(:,:) = 0._wp
+      ENDIF
+
+      ! END MV MP 2016
+
       !--------------------------------------------------------------------
       ! 4) Global ice variables for output diagnostics                    | 
@@ -450 +471 @@
       syyage (:,:,:)  = 0._wp
       sxyage (:,:,:)  = 0._wp
+
+      ! MV MP 2016
+      IF ( ln_limMP ) THEN
+         sxap  (:,:) = 0._wp    ; sxvp  (:,:) = 0._wp 
+         syap  (:,:) = 0._wp    ; syvp  (:,:) = 0._wp 
+         sxxap (:,:) = 0._wp    ; sxxvp (:,:) = 0._wp 
+         syyap (:,:) = 0._wp    ; syyvp (:,:) = 0._wp 
+         sxyap (:,:) = 0._wp    ; sxyvp (:,:) = 0._wp
+      ENDIF
+      ! END MV MP 2016
 
 !!!clem