Changeset 6960


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

Location:
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/LOCK_EXCHANGE/MY_SRC/usrdef_hgr.F90

    r6923 r6960  
    9797      !                             ! NO reduction of grid size in some straits  
    9898      ke1e2u_v = 0                  !    ==>> u_ & v_surfaces will be computed in dom_ghr routine 
     99      pe1e2u(:,:) = 0._wp           !    CAUTION: set to zero to avoid error with some compilers that 
     100      pe1e2v(:,:) = 0._wp           !             require an initialization of INTENT(out) arguments 
    99101      ! 
    100102      ! 
  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/OVERFLOW/MY_SRC/usrdef_hgr.F90

    r6923 r6960  
    9797      !                             ! NO reduction of grid size in some straits  
    9898      ke1e2u_v = 0                  !    ==>> u_ & v_surfaces will be computed in dom_ghr routine 
     99      pe1e2u(:,:) = 0._wp           !    CAUTION: set to zero to avoid error with some compilers that 
     100      pe1e2v(:,:) = 0._wp           !             require an initialization of INTENT(out) arguments 
    99101      ! 
    100102      ! 
  • 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.