Changeset 1694 for trunk/NEMO/LIM_SRC_3
- Timestamp:
- 2009-10-30T17:06:23+01:00 (15 years ago)
- Location:
- trunk/NEMO/LIM_SRC_3
- Files:
-
- 2 edited
-
limmsh.F90 (modified) (1 diff)
-
limwri_dimg.h90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/limmsh.F90
r1608 r1694 104 104 tmv(:,:) = vmask(:,:,1) ! ice V-point : use surface vmask (C-grid EVP) 105 105 DO jj = 1, jpjm1 ! ice F-point : recompute fmask (due to nn_shlat) 106 DO ji = 1 , jpim1 106 DO ji = 1 , jpim1 ! NO vector opt. 107 107 tmf(ji,jj) = tms(ji,jj) * tms(ji+1,jj) * tms(ji,jj+1) * tms(ji+1,jj+1) 108 108 END DO -
trunk/NEMO/LIM_SRC_3/limwri_dimg.h90
r1469 r1694 93 93 zcmo(:,:, 1:jpnoumax ) = 0.e0 94 94 DO jj = 2 , jpjm1 95 DO ji = 2 , jpim1 95 DO ji = 2 , jpim1 ! NO vector opt. 96 96 zindh = MAX( zzero , SIGN( zone , ht_i(ji,jj,1) * (1.0 - frld(ji,jj) ) - 0.10 ) ) 97 97 zinda = MAX( zzero , SIGN( zone , ( 1.0 - frld(ji,jj) ) - 0.10 ) ) … … 136 136 ! case of instantaneaous output rcmoy(:,:, 1:jpnoumax ) = 0.e0 137 137 DO jj = 2 , jpjm1 138 DO ji = 2 , jpim1 138 DO ji = 2 , jpim1 ! NO vector opt. 139 139 zindh = MAX( zzero , SIGN( zone , ht_i(ji,jj,1) * (1.0 - frld(ji,jj) ) - 0.10 ) ) 140 140 zinda = MAX( zzero , SIGN( zone , ( 1.0 - frld(ji,jj) ) - 0.10 ) )
Note: See TracChangeset
for help on using the changeset viewer.
