Changeset 13435


Ignore:
Timestamp:
2020-08-25T16:48:42+02:00 (8 months 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
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/DOM/domain.F90

    r13286 r13435  
    643643      ! 
    644644      !                             !==  ORCA family specificities  ==! 
    645       IF( cn_cfg == "ORCA" ) THEN 
     645      IF( TRIM(cn_cfg) == "orca" .OR. TRIM(cn_cfg) == "ORCA" ) THEN 
    646646         CALL iom_rstput( 0, 0, inum, 'ORCA'      , 1._wp            , ktype = jp_i4 ) 
    647647         CALL iom_rstput( 0, 0, inum, 'ORCA_index', REAL( nn_cfg, wp), ktype = jp_i4 )          
  • NEMO/trunk/src/OCE/USR/usrdef_fmask.F90

    r13286 r13435  
    5858      !!---------------------------------------------------------------------- 
    5959      ! 
    60       IF( TRIM( cd_cfg ) == "orca" ) THEN      !==  ORCA Configurations  ==! 
     60      IF( TRIM( cd_cfg ) == "orca" .OR. TRIM( cd_cfg ) == "ORCA" ) THEN      !==  ORCA Configurations  ==! 
    6161         ! 
    6262         SELECT CASE ( kcfg ) 
  • NEMO/trunk/src/SWE/domain.F90

    r13295 r13435  
    666666      ! 
    667667      !                             !==  ORCA family specificities  ==! 
    668       IF( cn_cfg == "ORCA" ) THEN 
     668      IF( TRIM(cn_cfg) == "orca" .OR. TRIM(cn_cfg) == "ORCA" ) THEN 
    669669         CALL iom_rstput( 0, 0, inum, 'ORCA'      , 1._wp            , ktype = jp_i4 ) 
    670670         CALL iom_rstput( 0, 0, inum, 'ORCA_index', REAL( nn_cfg, wp), ktype = jp_i4 )          
Note: See TracChangeset for help on using the changeset viewer.