/[MITgcm]/MITgcm_contrib/submesoscale/code/gmredi_check.F
ViewVC logotype

Diff of /MITgcm_contrib/submesoscale/code/gmredi_check.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by dimitri, Fri May 30 21:51:23 2008 UTC revision 1.3 by dimitri, Fri May 30 22:24:25 2008 UTC
# Line 60  CEOP Line 60  CEOP
60  C- print out some kee parameters :  C- print out some kee parameters :
61         CALL WRITE_0D_L( GM_AdvForm, INDEX_NONE,         CALL WRITE_0D_L( GM_AdvForm, INDEX_NONE,
62       &  'GM_AdvForm =', '  /* if FALSE => use SkewFlux Form */')       &  'GM_AdvForm =', '  /* if FALSE => use SkewFlux Form */')
63           CALL WRITE_0D_L( GM_InMomAsStress, INDEX_NONE,
64         &  'GM_InMomAsStress =', '  /* if TRUE => apply as Eddy Stress */')
65         CALL WRITE_0D_L( GM_AdvSeparate, INDEX_NONE,         CALL WRITE_0D_L( GM_AdvSeparate, INDEX_NONE,
66       & 'GM_AdvSeparate =',' /* Calc Bolus & Euler Adv. separately */')       & 'GM_AdvSeparate =',' /* Calc Bolus & Euler Adv. separately */')
67         CALL WRITE_0D_L( GM_ExtraDiag, INDEX_NONE,         CALL WRITE_0D_L( GM_ExtraDiag, INDEX_NONE,
# Line 131  C     Make sure we are not trying to use Line 133  C     Make sure we are not trying to use
133        ENDIF        ENDIF
134  #endif  #endif
135    
136    #ifdef GM_SUBMESO
137          IF (GM_SM_Ce .gt. 0 _d 0) THEN
138    C     Make sure we are not trying to use some arrays that are unavailable
139           IF ((.not.GM_ExtraDiag ).and.(.not.GM_AdvForm)) THEN
140            WRITE(msgBuf,'(A)')
141         &   ' GMREDI: GM_SUBMESO needs GM_EXTRA_DIAGONAL or GM_BOLUS_ADVEC'
142            CALL PRINT_ERROR( msgBuf, myThid )
143            WRITE(msgBuf,'(A)')
144         &   ' GMREDI_CHECK: add #define GM_EXTRA_DIAGONAL'
145            CALL PRINT_ERROR( msgBuf, myThid )
146            STOP 'ABNORMAL END: S/R GMREDI_CHECK'
147           ENDIF
148          ENDIF
149    #endif
150    
151    
152  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
153        IF ( GM_AdvForm .AND. .NOT.GM_AdvSeparate        IF ( GM_AdvForm .AND. .NOT.GM_AdvSeparate
154       &       .AND. usePTRACERS ) THEN       &       .AND. usePTRACERS ) THEN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22