Ignore:
Timestamp:
2017-03-15T09:04:30+01:00 (4 years ago)
Author:
cbricaud
Message:

code cleaning and correct bug for wn computing in vvl case

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

    r7398 r7795  
    110110          fmmflx_tm(:,:)         = fmmflx_tm(:,:)         + fmmflx(:,:) 
    111111          qsr_tm   (:,:)         = qsr_tm   (:,:)         + qsr   (:,:) 
    112           wndm_tm  (:,:)         = wndm_tm  (:,:)         + wndm  (:,:) 
    113112 
    114113      ELSE                           !  It is time to substep  
     
    152151         fmmflx_temp(:,:)        = fmmflx(:,:) 
    153152         qsr_temp   (:,:)        = qsr   (:,:) 
    154          wndm_temp  (:,:)        = wndm  (:,:) 
    155153         !                                    !  Variables reset in trc_sub_ssh 
    156154#if ! defined key_crs 
    157155         rotn_temp  (:,:,:)      = rotn  (:,:,:) 
    158156# endif 
    159          hdivn_temp (:,:,:)      = hdivn (:,:,:) 
    160157#if ! defined key_crs 
    161158         rotb_temp  (:,:,:)      = rotb  (:,:,:) 
    162159# endif 
    163          hdivb_temp (:,:,:)      = hdivb (:,:,:) 
    164160         ! 
    165161         ! 2. Create averages and reassign variables 
     
    199195         fmmflx_tm(:,:)          = fmmflx_tm  (:,:)       + fmmflx(:,:) 
    200196         qsr_tm   (:,:)          = qsr_tm     (:,:)       + qsr   (:,:) 
    201          wndm_tm  (:,:)          = wndm_tm    (:,:)       + wndm  (:,:) 
    202197         ! 
    203198         sshn     (:,:)          = sshn_tm    (:,:) * r1_ndttrcp1  
     
    211206         emp_b    (:,:) = emp_b_hold (:,:) 
    212207         IF( kt == nittrc000 ) THEN 
    213             wndm  (:,:)          = wndm_tm    (:,:) * r1_ndttrc  
    214208            qsr   (:,:)          = qsr_tm     (:,:) * r1_ndttrc  
    215209            emp   (:,:)          = emp_tm     (:,:) * r1_ndttrc  
     
    227221# endif 
    228222         ELSE 
    229             wndm  (:,:)          = wndm_tm    (:,:) * r1_ndttrcp1  
    230223            qsr   (:,:)          = qsr_tm     (:,:) * r1_ndttrcp1  
    231224            emp   (:,:)          = emp_tm     (:,:) * r1_ndttrcp1  
     
    389382      emp_b (:,:)     =  emp_b_temp (:,:) 
    390383      qsr   (:,:)     =  qsr_temp   (:,:) 
    391       wndm  (:,:)     =  wndm_temp  (:,:) 
    392384# if defined key_trabbl 
    393385      IF( nn_bbl_ldf == 1 ) THEN 
     
    402394      ! 
    403395      hdivn (:,:,:)   =  hdivn_temp (:,:,:) 
    404       hdivb (:,:,:)   =  hdivb_temp (:,:,:) 
    405396#if ! defined key_crs 
    406397      rotn  (:,:,:)   =  rotn_temp  (:,:,:) 
     
    438429      fmmflx_tm  (:,:) = fmmflx(:,:) 
    439430      qsr_tm     (:,:) = qsr   (:,:) 
    440       wndm_tm    (:,:) = wndm  (:,:) 
    441431# if defined key_trabbl 
    442432      IF( nn_bbl_ldf == 1 ) THEN 
Note: See TracChangeset for help on using the changeset viewer.