Changeset 13436 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/DOM

Timestamp:

2020-08-25T17:11:29+02:00 (4 years ago)

Author:

acc

Message:

r4.0-HEAD: minor modifications to usrdef_fmask.F90 and domain.F90 to consistently check for ORCA configurations. Fixed #2515

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/DOM/domain.F90 (modified) (1 diff)

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/DOM/domain.F90

@@ -621 +621 @@
       !
       !                             !==  ORCA family specificities  ==!
-      IF( cn_cfg == "ORCA" ) THEN
+      IF( TRIM(cn_cfg) == "orca" .OR. TRIM(cn_cfg) == "ORCA" ) THEN
          CALL iom_rstput( 0, 0, inum, 'ORCA'      , 1._wp            , ktype = jp_i4 )
          CALL iom_rstput( 0, 0, inum, 'ORCA_index', REAL( nn_cfg, wp), ktype = jp_i4 )