Changeset 13436

Timestamp:

2020-08-25T17:11:29+02:00 (3 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

Location:

NEMO/releases/r4.0/r4.0-HEAD/src/OCE

Files:

• DOM/domain.F90 (modified) (1 diff)
• USR/usrdef_fmask.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 )         

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/USR/usrdef_fmask.F90

@@ -60 +60 @@
       !!----------------------------------------------------------------------
       !
-      IF( TRIM( cd_cfg ) == "orca" ) THEN      !==  ORCA Configurations  ==!
+      IF( TRIM( cd_cfg ) == "orca" .OR. TRIM( cd_cfg ) == "ORCA" ) THEN      !==  ORCA Configurations  ==!
          !
          SELECT CASE ( kcfg )