Ignore:
Timestamp:
2016-10-03T18:23:58+02:00 (5 years ago)
Author:
cetlod
Message:

SIMPLIF_2_usrdef : make it work for standard Offline configuration

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_fmask.F90

    r6923 r6979  
    5151      !!                       in some user defined straits 
    5252      !!---------------------------------------------------------------------- 
    53       CHARACTER(len=1)          , INTENT(in   ) ::   cd_cfg   ! configuration name 
     53      CHARACTER(len=*)          , INTENT(in   ) ::   cd_cfg   ! configuration name 
    5454      INTEGER                   , INTENT(in   ) ::   kcfg     ! configuration identifier  
    5555      REAL(wp), DIMENSION(:,:,:), INTENT(inout) ::   pfmsk    ! Ocean/Land f-point mask including lateral boundary cond. 
     
    6060      !!---------------------------------------------------------------------- 
    6161      ! 
    62       IF( cd_cfg == "orca" ) THEN      !==  ORCA Configurations  ==! 
     62      IF( TRIM( cd_cfg ) == "orca" ) THEN      !==  ORCA Configurations  ==! 
    6363         ! 
    6464         SELECT CASE ( kcfg ) 
Note: See TracChangeset for help on using the changeset viewer.