Changeset 6960
- Timestamp:
- 2016-09-27T11:36:26+02:00 (8 years ago)
- 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 97 97 ! ! NO reduction of grid size in some straits 98 98 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 99 101 ! 100 102 ! -
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/OVERFLOW/MY_SRC/usrdef_hgr.F90
r6923 r6960 97 97 ! ! NO reduction of grid size in some straits 98 98 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 99 101 ! 100 102 ! -
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_hgr.F90
r6923 r6960 140 140 ! ! NO reduction of grid size in some straits 141 141 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 142 144 ! 143 145 !
Note: See TracChangeset
for help on using the changeset viewer.