Changeset 5605 for branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
- Timestamp:
- 2015-07-16T20:05:07+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r5503 r5605 364 364 END DO 365 365 nk_rnf(ji,jj) = jk 366 ELSEIF( h_rnf(ji,jj) == 0._wp ) THEN ; nk_rnf(ji,jj) = 1 ! (need to be remove before sumition into the trunk) 366 367 ELSEIF( h_rnf(ji,jj) == -1._wp ) THEN ; nk_rnf(ji,jj) = 1 367 368 ELSEIF( h_rnf(ji,jj) == -999._wp ) THEN ; nk_rnf(ji,jj) = mbkt(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.