/[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.3 by adcroft, Mon Feb 5 15:45:47 2001 UTC revision 1.4 by heimbach, Tue Apr 10 22:35:27 2001 UTC
# Line 81  C     Account for periodicity if negativ Line 81  C     Account for periodicity if negativ
81        DO I=1,Nx        DO I=1,Nx
82         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
83        ENDDO        ENDDO
84        write(0,*) 'OB Jn =',OB_Jnorth        write(*,*) 'OB Jn =',OB_Jnorth
85        write(0,*) 'OB Js =',OB_Jsouth        write(*,*) 'OB Js =',OB_Jsouth
86        write(0,*) 'OB Ie =',OB_Ieast        write(*,*) 'OB Ie =',OB_Ieast
87        write(0,*) 'OB Iw =',OB_Iwest        write(*,*) 'OB Iw =',OB_Iwest
88    
89  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
90  C     Default Orlanski radiation parameters  C     Default Orlanski radiation parameters
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22