29 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
30 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |
31 |
|
|
32 |
|
C So far, MY82 works only with oceanic z-coordinates |
33 |
|
IF ( buoyancyRelation .NE. 'OCEANIC' ) THEN |
34 |
|
WRITE(msgBuf,'(A)') |
35 |
|
& 'MY82 works only with buoyancyRelation = ''OCEANIC''' |
36 |
|
CALL PRINT_ERROR( msgBuf , 1) |
37 |
|
STOP 'ABNORMAL END: S/R MY82_CHECK' |
38 |
|
ENDIF |
39 |
|
|
40 |
C MY82 needs convection turned off (will be packaged later) |
C MY82 needs convection turned off (will be packaged later) |
41 |
IF (cAdjFreq.NE.0. .OR. |
IF (cAdjFreq.NE.0. .OR. |
42 |
& ivdc_kappa.NE.0. ) THEN |
& ivdc_kappa.NE.0. ) THEN |