Changeset 598 for trunk/NEMO/LIM_SRC
- Timestamp:
- 2007-02-20T15:16:53+01:00 (18 years ago)
- Location:
- trunk/NEMO/LIM_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC/limwri.F90
r508 r598 175 175 END DO 176 176 177 IF ( jf == 7 .OR. jf == 8 .OR. jf == 11 .OR. jf == 12 .OR. jf == 15 .OR. & 178 jf == 23 .OR. jf == 24 .OR. jf == 16 ) THEN 177 IF ( jf == 7 .OR. jf == 8 .OR. jf == 15 .OR. jf == 16 ) THEN 179 178 CALL lbc_lnk( zfield, 'T', -1. ) 180 179 ELSE -
trunk/NEMO/LIM_SRC/limwri_dimg.h90
r508 r598 178 178 zfield(:,:) = (rcmoy(:,:,jf) * cmulti(jf) + cadd(jf)) * tmask(:,:,1) 179 179 180 IF ( jf == 7 .OR. jf == 8 .OR. jf == 11 .OR. jf == 12 .OR. jf == 15 .OR. & 181 jf == 23 .OR. jf == 24 .OR. jf == 16 ) THEN 180 IF ( jf == 7 .OR. jf == 8 .OR. jf == 15 .OR. jf == 16 ) THEN 182 181 CALL lbc_lnk( zfield, 'T', -1. ) 183 182 ELSE
Note: See TracChangeset
for help on using the changeset viewer.