Changeset 14540 for NEMO/branches
- Timestamp:
- 2021-02-24T18:33:57+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/NERC/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90
r14539 r14540 403 403 404 404 #ifdef key_osm_debug 405 IF(mi0(nn_idb)==mi1(nn_idb).AND.mj0(nn_jdb)==mj1(nn_jdb))THEN 405 IF(mi0(nn_idb)==mi1(nn_idb) .AND. mj0(nn_jdb)==mj1(nn_jdb) .AND. & 406 & mi0(nn_idb) > 1 .AND. mi0(nn_idb) < jpi .AND. mj0(nn_jdb) > 1 .AND. mj0(nn_jdb) < jpj) THEN 406 407 nn_narea_db = narea 407 408 iloc_db=mi0(nn_idb); jloc_db=mj0(nn_jdb) … … 416 417 WRITE(narea+100,*) 417 418 FLUSH(narea+100) 419 ELSE 420 nn_narea_db = -1000 418 421 END IF 419 422 #endif
Note: See TracChangeset
for help on using the changeset viewer.