- Timestamp:
- 2016-07-19T10:38:35+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5549_BDY_ZEROGRAD/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90
r5147 r6808 59 59 REAL(wp), TARGET, ALLOCATABLE, SAVE, DIMENSION(:,:) :: p_fval2d 60 60 61 62 61 !! * Substitutions 63 # include "domzgr_substitute.h90"64 62 # include "vectopt_loop_substitute.h90" 65 63 !!---------------------------------------------------------------------- … … 118 116 DO jj = 1, jpj 119 117 DO ji = 1, jpi 120 zsfc = e1t(ji,jj) * fse3t(ji,jj,jk)118 zsfc = e1t(ji,jj) * e3t_n(ji,jj,jk) 121 119 zmask(ji,jj,jk) = tmask(ji,jj,jk) * zsfc 122 120 zts(ji,jj,jk,jp_tem) = tsn(ji,jj,jk,jp_tem) * zsfc 123 121 zts(ji,jj,jk,jp_sal) = tsn(ji,jj,jk,jp_sal) * zsfc 124 END DO125 END DO126 END DO122 END DO 123 END DO 124 END DO 127 125 DO jn = 1, nptr 128 126 zmask(1,:,:) = ptr_sjk( zmask(:,:,:), btmsk(:,:,jn) )
Note: See TracChangeset
for help on using the changeset viewer.