Changeset 6979 for branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_fmask.F90

Timestamp:

2016-10-03T18:23:58+02:00 (8 years ago)

Author:

cetlod

Message:

SIMPLIF_2_usrdef : make it work for standard Offline configuration

File:

• branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_fmask.F90 (modified) (2 diffs)

branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_fmask.F90

@@ -51 +51 @@
       !!                       in some user defined straits
       !!----------------------------------------------------------------------
-      CHARACTER(len=1)          , INTENT(in   ) ::   cd_cfg   ! configuration name
+      CHARACTER(len=*)          , INTENT(in   ) ::   cd_cfg   ! configuration name
       INTEGER                   , INTENT(in   ) ::   kcfg     ! configuration identifier 
       REAL(wp), DIMENSION(:,:,:), INTENT(inout) ::   pfmsk    ! Ocean/Land f-point mask including lateral boundary cond.
@@ -60 +60 @@
       !!----------------------------------------------------------------------
       !
-      IF( cd_cfg == "orca" ) THEN      !==  ORCA Configurations  ==!
+      IF( TRIM( cd_cfg ) == "orca" ) THEN      !==  ORCA Configurations  ==!
          !
          SELECT CASE ( kcfg )