Changeset 13436


Ignore:
Timestamp:
2020-08-25T17:11:29+02:00 (5 months 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:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/DOM/domain.F90

    r13297 r13436  
    621621      ! 
    622622      !                             !==  ORCA family specificities  ==! 
    623       IF( cn_cfg == "ORCA" ) THEN 
     623      IF( TRIM(cn_cfg) == "orca" .OR. TRIM(cn_cfg) == "ORCA" ) THEN 
    624624         CALL iom_rstput( 0, 0, inum, 'ORCA'      , 1._wp            , ktype = jp_i4 ) 
    625625         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

    r10425 r13436  
    6060      !!---------------------------------------------------------------------- 
    6161      ! 
    62       IF( TRIM( cd_cfg ) == "orca" ) THEN      !==  ORCA Configurations  ==! 
     62      IF( TRIM( cd_cfg ) == "orca" .OR. TRIM( cd_cfg ) == "ORCA" ) THEN      !==  ORCA Configurations  ==! 
    6363         ! 
    6464         SELECT CASE ( kcfg ) 
Note: See TracChangeset for help on using the changeset viewer.