Changeset 8306 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

Timestamp:

2017-07-10T12:18:03+02:00 (7 years ago)

Author:

clem

Message:

step1: remove LIM2 from the code

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90 (modified) (4 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

@@ -32 +32 @@
    USE dianam          ! build name of file
    USE lib_mpp         ! distributed memory computing library
-#if defined key_lim2
-   USE ice_2
-#endif
 #if defined key_lim3
    USE ice
@@ -747 +744 @@
            END DO !end of loop on the level
 
-#if defined key_lim2 || defined key_lim3
+#if defined key_lim3
 
            !ICE CASE    
@@ -769 +766 @@
               zTnorm=zumid_ice*e2u(k%I,k%J)+zvmid_ice*e1v(k%I,k%J)
 
-#if defined key_lim2   
-              transports_2d(1,jsec,jseg) = transports_2d(1,jsec,jseg) + (zTnorm)*   & 
-                                   (1.0 - frld(sec%listPoint(jseg)%I,sec%listPoint(jseg)%J))  & 
-                                  *(hsnif(sec%listPoint(jseg)%I,sec%listPoint(jseg)%J) +  & 
-                                    hicif(sec%listPoint(jseg)%I,sec%listPoint(jseg)%J))
-              transports_2d(2,jsec,jseg) = transports_2d(2,jsec,jseg) + (zTnorm)*   & 
-                                    (1.0 -  frld(sec%listPoint(jseg)%I,sec%listPoint(jseg)%J))
-#endif
 #if defined key_lim3
               DO jl=1,jpl
@@ -960 +949 @@
            ENDDO ! loop over jk 
  
-#if defined key_lim2 || defined key_lim3 
+#if defined key_lim3 
  
            !ICE CASE