/[MITgcm]/MITgcm/pkg/atm2d/init_atm2d.F
ViewVC logotype

Diff of /MITgcm/pkg/atm2d/init_atm2d.F

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

revision 1.5 by jmc, Mon Oct 8 23:48:28 2007 UTC revision 1.8 by jmc, Thu May 2 20:37:52 2013 UTC
# Line 127  c end atmos grid initialization Line 127  c end atmos grid initialization
127            atm_oc_frac2(j)=0. _d 0            atm_oc_frac2(j)=0. _d 0
128          ENDIF          ENDIF
129        ENDDO        ENDDO
130    
131    C     compute tauv interpolation points
132          tauv_jpt(1) = 2         ! south pole point; s/b land
133          tauv_jwght(1) = 1. _d 0
134          DO j=2, sNy
135            DO jj=1,jm0-1
136              IF (( yG(1,j,1,1) .GE. atm_yC(jj)).AND.
137         &        ( yG(1,j,1,1) .LT. atm_yC(jj+1))) j_atm=jj
138            ENDDO
139            tauv_jpt(j)= j_atm
140            tauv_jwght(j)= 1. _d 0 - (yG(1,j,1,1) - atm_yC(j_atm)) /
141         &                 (atm_yC(j_atm+1) - atm_yC(j_atm))
142          ENDDO
143    
144    C      DO j=1,sNy
145    C      print *, 'j, tauv_jpt:', j,tauv_jpt(j),tauv_jwght(j)
146    C      ENDDO
147    
148  c  c
149  c find land fraction  c find land fraction
150  c  c
# Line 331  C     Initialize following for safety an Line 349  C     Initialize following for safety an
349            pass_slp(i,j)= 0. _d 0            pass_slp(i,j)= 0. _d 0
350            pass_siceLoad(i,j)= 0. _d 0            pass_siceLoad(i,j)= 0. _d 0
351            pass_pCO2(i,j)= 0. _d 0            pass_pCO2(i,j)= 0. _d 0
352            pass_prcAtm(i,j)= 0. _d 0            pass_prcAtm(i,j) = 0. _d 0
353              snowPrc    (i,j) = 0. _d 0
354            sFluxFromIce(i,j)= 0. _d 0            sFluxFromIce(i,j)= 0. _d 0
355          ENDDO          ENDDO
356        ENDDO        ENDDO
# Line 345  C     Initialize following (if ocn carbo Line 364  C     Initialize following (if ocn carbo
364    
365        RETURN        RETURN
366        END        END
   
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22