Changeset 14540

Timestamp:

2021-02-24T18:33:57+01:00 (3 years ago)

Author:

agn

Message:

Cleaned up fort.xxxx output so only produces one file

File:

• NEMO/branches/NERC/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90 (modified) (2 diffs)

NEMO/branches/NERC/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90

@@ -403 +403 @@
 
 #ifdef key_osm_debug
-    IF(mi0(nn_idb)==mi1(nn_idb).AND.mj0(nn_jdb)==mj1(nn_jdb))THEN
+    IF(mi0(nn_idb)==mi1(nn_idb) .AND. mj0(nn_jdb)==mj1(nn_jdb) .AND. &
+         & mi0(nn_idb) > 1 .AND. mi0(nn_idb) < jpi .AND. mj0(nn_jdb) > 1 .AND. mj0(nn_jdb) < jpj) THEN
        nn_narea_db = narea
        iloc_db=mi0(nn_idb); jloc_db=mj0(nn_jdb)
@@ -416 +417 @@
        WRITE(narea+100,*)
        FLUSH(narea+100)
+    ELSE
+       nn_narea_db = -1000
     END IF
 #endif