Changeset 1694 for trunk/NEMO/LIM_SRC_3/limwri_dimg.h90
- Timestamp:
- 2009-10-30T17:06:23+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.