Changeset 12353 for NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM
- Timestamp:
- 2020-01-29T17:15:37+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM/closea.F90
r12150 r12353 51 51 INTEGER, PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:) :: mask_csemp , mask_csgrpemp !: mask of integers defining closed seas empmr mappings 52 52 53 !! * Substitutions54 # include "vectopt_loop_substitute.h90"55 53 !!---------------------------------------------------------------------- 56 54 !! NEMO/OCE 4.0 , NEMO Consortium (2018) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM/depth_e3.F90
r10069 r12353 36 36 PUBLIC e3_to_depth ! called by domzgr.F90 37 37 38 !! * Substitutions39 # include "vectopt_loop_substitute.h90"40 38 !!---------------------------------------------------------------------- 41 39 !! NEMO/OCE 4.0 , NEMO Consortium (2018) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM/dommsk.F90
r12340 r12353 44 44 45 45 !! * Substitutions 46 # include "vectopt_loop_substitute.h90"47 46 # include "do_loop_substitute.h90" 48 47 !!---------------------------------------------------------------------- … … 164 163 DO jk = 1, jpk 165 164 DO jj = 1, jpjm1 166 DO ji = 1, fs_jpim1 ! vector loop165 DO ji = 1, jpim1 ! vector loop 167 166 umask(ji,jj,jk) = tmask(ji,jj ,jk) * tmask(ji+1,jj ,jk) 168 167 vmask(ji,jj,jk) = tmask(ji,jj ,jk) * tmask(ji ,jj+1,jk) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM/domvvl.F90
r12340 r12353 64 64 65 65 !! * Substitutions 66 # include "vectopt_loop_substitute.h90"67 66 # include "do_loop_substitute.h90" 68 67 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM/domwri.F90
r12340 r12353 33 33 34 34 !! * Substitutions 35 # include "vectopt_loop_substitute.h90"36 35 # include "do_loop_substitute.h90" 37 36 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM/domzgr.F90
r12340 r12353 44 44 45 45 !! * Substitutions 46 # include "vectopt_loop_substitute.h90"47 46 # include "do_loop_substitute.h90" 48 47 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM/istate.F90
r12340 r12353 42 42 43 43 !! * Substitutions 44 # include "vectopt_loop_substitute.h90"45 44 # include "do_loop_substitute.h90" 46 45 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.