New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3863 – NEMO

Changeset 3863


Ignore:
Timestamp:
2013-04-08T16:42:11+02:00 (11 years ago)
Author:
cetlod
Message:

2013/dev_r3411_CNRS4_IOCRS: minor bug correction

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90

    r3860 r3863  
    148148     !      3.c.1 Horizontal scale factors 
    149149 
    150      CALL crs_dom_hgr( e1t, e2t, ,'T', e1t_crs, e2t_crs ) 
    151      CALL crs_dom_hgr( e1u, e2u, ,'U', e1u_crs, e2u_crs ) 
    152      CALL crs_dom_hgr( e1v, e2v, ,'V', e1v_crs, e2v_crs ) 
    153      CALL crs_dom_hgr( e1f, e2f, ,'F', e1f_crs, e2f_crs ) 
     150     CALL crs_dom_hgr( e1t, e2t, 'T', e1t_crs, e2t_crs ) 
     151     CALL crs_dom_hgr( e1u, e2u, 'U', e1u_crs, e2u_crs ) 
     152     CALL crs_dom_hgr( e1v, e2v, 'V', e1v_crs, e2v_crs ) 
     153     CALL crs_dom_hgr( e1f, e2f, 'F', e1f_crs, e2f_crs ) 
    154154 
    155155     e1e2t_crs(:,:) = e1t_crs(:,:) * e2t_crs(:,:) 
Note: See TracChangeset for help on using the changeset viewer.