Ignore:
Timestamp:
2012-11-21T13:12:48+01:00 (8 years ago)
Author:
acc
Message:

dev_r3385_NOCS04_HAMF; #665. Corrections to passive and off-line tracer modules prior to merge

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

    r3403 r3623  
    121121          fr_i_tm  (:,:)         = fr_i_tm  (:,:)         + fr_i  (:,:) 
    122122          emp_tm   (:,:)         = emp_tm   (:,:)         + emp   (:,:)  
    123           emps_tm  (:,:)         = emps_tm  (:,:)         + sfx   (:,:) 
     123          sfx_tm   (:,:)         = sfx_tm   (:,:)         + sfx   (:,:) 
    124124          qsr_tm   (:,:)         = qsr_tm   (:,:)         + qsr   (:,:) 
    125125          wndm_tm  (:,:)         = wndm_tm  (:,:)         + wndm  (:,:) 
     
    209209         emp_temp   (:,:)        = emp   (:,:) 
    210210         emp_b_temp (:,:)        = emp_b (:,:) 
    211          emps_temp  (:,:)        = sfx   (:,:) 
     211         sfx_temp   (:,:)        = sfx   (:,:) 
    212212         qsr_temp   (:,:)        = qsr   (:,:) 
    213213         wndm_temp  (:,:)        = wndm  (:,:) 
     
    313313         fr_i_tm  (:,:)          = fr_i_tm    (:,:)       + fr_i  (:,:) 
    314314         emp_tm   (:,:)          = emp_tm     (:,:)       + emp   (:,:)  
    315          emps_tm  (:,:)          = emps_tm    (:,:)       + sfx   (:,:) 
     315         sfx_tm   (:,:)          = sfx_tm     (:,:)       + sfx   (:,:) 
    316316         qsr_tm   (:,:)          = qsr_tm     (:,:)       + qsr   (:,:) 
    317317         wndm_tm  (:,:)          = wndm_tm    (:,:)       + wndm  (:,:) 
     
    332332            qsr   (:,:)          = qsr_tm     (:,:) * r1_ndttrc  
    333333            emp   (:,:)          = emp_tm     (:,:) * r1_ndttrc  
    334             sfx   (:,:)          = emps_tm    (:,:) * r1_ndttrc  
     334            sfx   (:,:)          = sfx_tm     (:,:) * r1_ndttrc  
    335335            fr_i  (:,:)          = fr_i_tm    (:,:) * r1_ndttrc 
    336336# if defined key_trabbl 
     
    348348            qsr   (:,:)          = qsr_tm     (:,:) * r1_ndttrcp1  
    349349            emp   (:,:)          = emp_tm     (:,:) * r1_ndttrcp1  
    350             sfx   (:,:)          = emps_tm    (:,:) * r1_ndttrcp1  
     350            sfx   (:,:)          = sfx_tm     (:,:) * r1_ndttrcp1  
    351351            fr_i  (:,:)          = fr_i_tm    (:,:) * r1_ndttrcp1  
    352352# if defined key_trabbl 
     
    598598      fr_i_tm(:,:) = 0._wp 
    599599      emp_tm (:,:) = 0._wp 
    600       emps_tm(:,:) = 0._wp 
     600      sfx_tm(:,:) = 0._wp 
    601601      qsr_tm (:,:) = 0._wp 
    602602      wndm_tm(:,:) = 0._wp 
     
    705705      fr_i  (:,:)     =  fr_i_temp  (:,:) 
    706706      emp   (:,:)     =  emp_temp   (:,:) 
    707       sfx   (:,:)     =  emps_temp  (:,:) 
     707      sfx   (:,:)     =  sfx_temp   (:,:) 
    708708      emp_b (:,:)     =  emp_b_temp (:,:) 
    709709      qsr   (:,:)     =  qsr_temp   (:,:) 
     
    824824      fr_i_tm    (:,:) = fr_i  (:,:) 
    825825      emp_tm     (:,:) = emp   (:,:) 
    826       emps_tm    (:,:) = sfx   (:,:) 
     826      sfx_tm     (:,:) = sfx   (:,:) 
    827827      qsr_tm     (:,:) = qsr   (:,:) 
    828828      wndm_tm    (:,:) = wndm  (:,:) 
     
    10531053         &      rnf_temp(jpi,jpj)           ,  h_rnf_temp(jpi,jpj) ,     & 
    10541054         &      tsn_temp(jpi,jpj,jpk,2)     ,  emp_b_temp(jpi,jpj),      & 
    1055          &      emp_temp(jpi,jpj)           ,  emps_temp(jpi,jpj) ,      & 
     1055         &      emp_temp(jpi,jpj)           ,  sfx_temp(jpi,jpj) ,      & 
    10561056         &      hmld_temp(jpi,jpj)          ,  qsr_temp(jpi,jpj) ,       & 
    10571057         &      fr_i_temp(jpi,jpj)          ,  fr_i_tm(jpi,jpj) ,        & 
     
    11011101         &      sshv_n_tm(jpi,jpj)          ,  sshv_b_hold(jpi,jpj),     & 
    11021102         &      tsn_tm(jpi,jpj,jpk,2)       ,                            & 
    1103          &      emp_tm(jpi,jpj)             ,  emps_tm(jpi,jpj) ,        & 
     1103         &      emp_tm(jpi,jpj)             ,  sfx_tm(jpi,jpj) ,        & 
    11041104         &      emp_b_hold(jpi,jpj)         ,                            & 
    11051105         &      hmld_tm(jpi,jpj)            ,  qsr_tm(jpi,jpj) ,         & 
Note: See TracChangeset for help on using the changeset viewer.