Changeset 7795 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

Timestamp:

2017-03-15T09:04:30+01:00 (7 years ago)

Author:

cbricaud

Message:

code cleaning and correct bug for wn computing in vvl case

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcsub.F90 (modified) (8 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

@@ -110 +110 @@
           fmmflx_tm(:,:)         = fmmflx_tm(:,:)         + fmmflx(:,:)
           qsr_tm   (:,:)         = qsr_tm   (:,:)         + qsr   (:,:)
-          wndm_tm  (:,:)         = wndm_tm  (:,:)         + wndm  (:,:)
 
       ELSE                           !  It is time to substep 
@@ -152 +151 @@
          fmmflx_temp(:,:)        = fmmflx(:,:)
          qsr_temp   (:,:)        = qsr   (:,:)
-         wndm_temp  (:,:)        = wndm  (:,:)
          !                                    !  Variables reset in trc_sub_ssh
 #if ! defined key_crs
          rotn_temp  (:,:,:)      = rotn  (:,:,:)
 # endif
-         hdivn_temp (:,:,:)      = hdivn (:,:,:)
 #if ! defined key_crs
          rotb_temp  (:,:,:)      = rotb  (:,:,:)
 # endif
-         hdivb_temp (:,:,:)      = hdivb (:,:,:)
          !
          ! 2. Create averages and reassign variables
@@ -199 +195 @@
          fmmflx_tm(:,:)          = fmmflx_tm  (:,:)       + fmmflx(:,:)
          qsr_tm   (:,:)          = qsr_tm     (:,:)       + qsr   (:,:)
-         wndm_tm  (:,:)          = wndm_tm    (:,:)       + wndm  (:,:)
          !
          sshn     (:,:)          = sshn_tm    (:,:) * r1_ndttrcp1 
@@ -211 +206 @@
          emp_b    (:,:) = emp_b_hold (:,:)
          IF( kt == nittrc000 ) THEN
-            wndm  (:,:)          = wndm_tm    (:,:) * r1_ndttrc 
             qsr   (:,:)          = qsr_tm     (:,:) * r1_ndttrc 
             emp   (:,:)          = emp_tm     (:,:) * r1_ndttrc 
@@ -227 +221 @@
 # endif
          ELSE
-            wndm  (:,:)          = wndm_tm    (:,:) * r1_ndttrcp1 
             qsr   (:,:)          = qsr_tm     (:,:) * r1_ndttrcp1 
             emp   (:,:)          = emp_tm     (:,:) * r1_ndttrcp1 
@@ -389 +382 @@
       emp_b (:,:)     =  emp_b_temp (:,:)
       qsr   (:,:)     =  qsr_temp   (:,:)
-      wndm  (:,:)     =  wndm_temp  (:,:)
 # if defined key_trabbl
       IF( nn_bbl_ldf == 1 ) THEN
@@ -402 +394 @@
       !
       hdivn (:,:,:)   =  hdivn_temp (:,:,:)
-      hdivb (:,:,:)   =  hdivb_temp (:,:,:)
 #if ! defined key_crs
       rotn  (:,:,:)   =  rotn_temp  (:,:,:)
@@ -438 +429 @@
       fmmflx_tm  (:,:) = fmmflx(:,:)
       qsr_tm     (:,:) = qsr   (:,:)
-      wndm_tm    (:,:) = wndm  (:,:)
 # if defined key_trabbl
       IF( nn_bbl_ldf == 1 ) THEN