Changeset 6482


Ignore:
Timestamp:
2016-04-19T09:59:19+02:00 (4 years ago)
Author:
timgraham
Message:

#1687 - Add a consistency check for the setting of ln_useCT and nn_eos

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

    r5540 r6482  
    12581258      ENDIF 
    12591259      ! 
     1260      ! Consistency check on ln_useCT and nn_eos 
     1261      IF ((nn_eos .EQ. -1) .AND. (.NOT. ln_useCT)) THEN 
     1262         CALL ctl_stop("ln_useCT should be set to True if using TEOS-10 (nn_eos=-1)") 
     1263      ELSE IF ((nn_eos .NE. -1) .AND. (ln_useCT)) THEN 
     1264         CALL ctl_stop("ln_useCT should be set to False if using TEOS-80 or simplified equation of state (nn_eos=0 or nn_eos=1)") 
     1265      ENDIF 
     1266      ! 
    12601267      SELECT CASE( nn_eos )         ! check option 
    12611268      ! 
Note: See TracChangeset for help on using the changeset viewer.