Changeset 13435 for NEMO/trunk/src/OCE

Timestamp:

2020-08-25T16:48:42+02:00 (4 years ago)

Author:

acc

Message:

Trunk: minor modifications to usrdef_fmask.F90 and domain.F90 to consistently check for ORCA configurations. See #2515

Location:

NEMO/trunk/src/OCE

Files:

• DOM/domain.F90 (modified) (1 diff)
• USR/usrdef_fmask.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/DOM/domain.F90

@@ -643 +643 @@
       !
       !                             !==  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/trunk/src/OCE/USR/usrdef_fmask.F90

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