Changeset 7805


Ignore:
Timestamp:
2017-03-16T14:39:55+01:00 (4 years ago)
Author:
cbricaud
Message:

correc bug in crs branch

Location:
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsfld.F90

    r7795 r7805  
    305305 
    306306      CALL crs_dom_ope( qsr  , 'SUM', 'T', tmask, qsr_crs  , p_e12=e1e2t, p_surf_crs=e1e2t_crs, psgn=1.0 ) 
    307  
     307      CALL crs_dom_ope( wndm , 'SUM', 'T', tmask, wndm_crs , p_e12=e1e2t, p_surf_crs=e1e2t_crs, psgn=1.0 ) 
    308308      CALL crs_dom_ope( emp   ,'SUM', 'T', tmask, emp_crs   , p_e12=e1e2t, p_surf_crs=e1e2t_crs, psgn=1.0 ) 
    309309      CALL crs_dom_ope( fmmflx,'SUM', 'T', tmask, fmmflx_crs, p_e12=e1e2t, p_surf_crs=e1e2t_crs, psgn=1.0 ) 
  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90

    r7795 r7805  
    154154   USE crs , ONLY :   e3t_a      =>  e3t_a_crs         !: vertical scale factors at t- 
    155155   USE crs , ONLY :   gdept_n    =>  gdept_n_crs       !: depth of t-points (m) 
     156   USE crs , ONLY :   gdepw_n    =>  gdepw_n_crs       !: depth of t-points (m) 
     157   USE crs , ONLY :   e3t_max_crs => e3t_max_n_crs 
     158   USE crs , ONLY :   e3w_max_crs => e3w_max_n_crs 
    156159#else 
    157160   USE crs , ONLY :   e3t        =>  e3t_0_crs         !: vertical scale factors at t- 
     
    183186#endif 
    184187   USE dom_oce , ONLY :   gdept_1d   =>  gdept_1d      !: depth of t-points (m) 
    185   !* masks, bathymetry * 
     188   USE crs , ONLY :   gdept_0    =>  gdept_0_crs       !: depth of t-points (m) 
     189   USE crs , ONLY :     e3t_0    =>    e3t_0_crs       !: depth of t-points (m) 
    186190   USE crs , ONLY :   mbkt       =>   mbkt_crs       !: vertical index of the bottom last T- ocean level 
    187191   USE crs , ONLY :   tmask_i    =>   tmask_i_crs    !: Interior mask at t-points 
     
    204208   USE crs , ONLY :   emp_b      =>    emp_b_crs      !: freshwater budget: volume flux               [Kg/m2/s] 
    205209   USE crs , ONLY :   fmmflx     =>    fmmflx_crs     !: freshwater budget: volume flux               [Kg/m2/s] 
     210   USE crs , ONLY :   wndm       =>    wndm_crs       !: 10m wind speed  
    206211   USE crs , ONLY :   rnf        =>    rnf_crs        !: river runoff   [Kg/m2/s] 
    207212   USE crs , ONLY :   h_rnf      =>    h_rnf_crs      !: river runoff   [Kg/m2/s] 
Note: See TracChangeset for help on using the changeset viewer.