/[MITgcm]/MITgcm/pkg/obcs/obcs_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_readparms.F

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

revision 1.18 by mlosch, Thu Jan 24 18:39:38 2008 UTC revision 1.19 by dimitri, Wed Apr 23 16:34:05 2008 UTC
# Line 72  C--   OBCS_READPARMS has been called so Line 72  C--   OBCS_READPARMS has been called so
72  C     the package is active.  C     the package is active.
73        OBCSIsOn=.TRUE.        OBCSIsOn=.TRUE.
74    
75        WRITE(msgBuf,'(A)') ' OBCS_READPARMS: opening data.obcs'        IF ( debugLevel .GE. debLevB ) THEN
76        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         WRITE(msgBuf,'(A)') ' OBCS_READPARMS: opening data.obcs'
77       &                    SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
78         &      SQUEEZE_RIGHT , 1)
79          ENDIF
80    
81        CALL OPEN_COPY_DATA_FILE(        CALL OPEN_COPY_DATA_FILE(
82       I                          'data.obcs', 'OBCS_READPARMS',       I                          'data.obcs', 'OBCS_READPARMS',
# Line 159  C     Account for periodicity if negativ Line 161  C     Account for periodicity if negativ
161        DO I=1,Nx        DO I=1,Nx
162         IF (OB_Jnorth(I).lt.0) OB_Jnorth(I)=OB_Jnorth(I)+Ny+1         IF (OB_Jnorth(I).lt.0) OB_Jnorth(I)=OB_Jnorth(I)+Ny+1
163        ENDDO        ENDDO
164        write(*,*) 'OB Jn =',OB_Jnorth        IF ( debugLevel .GE. debLevB ) THEN
165        write(*,*) 'OB Js =',OB_Jsouth         write(*,*) 'OB Jn =',OB_Jnorth
166        write(*,*) 'OB Ie =',OB_Ieast         write(*,*) 'OB Js =',OB_Jsouth
167        write(*,*) 'OB Iw =',OB_Iwest         write(*,*) 'OB Ie =',OB_Ieast
168           write(*,*) 'OB Iw =',OB_Iwest
169          ENDIF
170    
171  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
172  C     Default Orlanski radiation parameters  C     Default Orlanski radiation parameters
# Line 196  CML      Vrelaxobcsbound = 1. _d 0 Line 200  CML      Vrelaxobcsbound = 1. _d 0
200       & READ(UNIT=iUnit,NML=OBCS_PARM03)       & READ(UNIT=iUnit,NML=OBCS_PARM03)
201  #endif  #endif
202    
203        WRITE(msgBuf,'(A)') ' OBCS_READPARMS: finished reading data.obcs'        IF ( debugLevel .GE. debLevB ) THEN
204        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         WRITE(msgBuf,'(A)') ' OBCS_READPARMS: finished reading data.obcs'
205       &                    SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
206         &      SQUEEZE_RIGHT , 1)
207          ENDIF
208    
209  C--   Close the open data file  C--   Close the open data file
210        CLOSE(iUnit)        CLOSE(iUnit)
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22