Ignore:
Timestamp:
2016-09-27T11:36:26+02:00 (5 years ago)
Author:
flavoni
Message:

define initial value for pe1e2 to avoid error with some compilers

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_hgr.F90

    r6923 r6960  
    140140      !                                         ! NO reduction of grid size in some straits  
    141141      ke1e2u_v = 0                              !    ==>> u_ & v_surfaces will be computed in dom_ghr routine 
     142      pe1e2u(:,:) = 0._wp                       !    CAUTION: set to zero to avoid error with some compilers that 
     143      pe1e2v(:,:) = 0._wp                       !             require an initialization of INTENT(out) arguments 
    142144      ! 
    143145      ! 
Note: See TracChangeset for help on using the changeset viewer.