Changeset 1923


Ignore:
Timestamp:
2010-06-09T10:46:19+02:00 (10 years ago)
Author:
rblod
Message:

Add a stop on coriols parameter computation in case of f or beta plane, see ticket #625 second part

Location:
trunk/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/LIM_SRC_2/limmsh_2.F90

    r1694 r1923  
    6666      ENDIF 
    6767       
     68      IF( jphgr_msh == 2 .OR. jphgr_msh == 3 .OR. jphgr_msh == 5 )   & 
     69          &      CALL ctl_stop(' Coriolis parameter in LIM not set for f- or beta-plane' ) 
     70 
    6871      !----------------------------------------------------------                           
    6972      !    Initialization of local and some global (common) variables  
  • trunk/NEMO/LIM_SRC_3/limmsh.F90

    r1694 r1923  
    5353         WRITE(numout,*) '~~~~~~~' 
    5454      ENDIF 
     55 
     56      IF( jphgr_msh == 2 .OR. jphgr_msh == 3 .OR. jphgr_msh == 5 )   & 
     57          &      CALL ctl_stop(' Coriolis parameter in LIM not set for f- or beta-plane' ) 
    5558 
    5659      !                           !==  coriolis factor & Equator position ==! 
Note: See TracChangeset for help on using the changeset viewer.