Changeset 4251 for branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90
- Timestamp:
- 2013-11-19T15:30:22+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90
r4147 r4251 150 150 zcmo(:,:, 1:jpnoumax ) = 0.e0 151 151 DO jj = 2 , jpjm1 152 DO ji = 1, jpim1 ! NO vector opt.152 DO ji = 2 , jpim1 ! NO vector opt. 153 153 zindh = MAX( zzero , SIGN( zone , hicif(ji,jj) * (1.0 - frld(ji,jj) ) - 0.10 ) ) 154 154 zinda = MAX( zzero , SIGN( zone , ( 1.0 - frld(ji,jj) ) - 0.10 ) )
Note: See TracChangeset
for help on using the changeset viewer.