Ignore:
Timestamp:
2020-08-25T16:48:42+02:00 (9 months ago)
Author:
acc
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.