/[MITgcm]/MITgcm/pkg/aim/aim_do_atmos_physics.F
ViewVC logotype

Diff of /MITgcm/pkg/aim/aim_do_atmos_physics.F

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

revision 1.5 by cnh, Mon Jun 18 17:39:58 2001 UTC revision 1.6 by jmc, Wed Aug 15 13:50:43 2001 UTC
# Line 197  c_jmc    QG1(I2,Katm,myThid)   = salt(I, Line 197  c_jmc    QG1(I2,Katm,myThid)   = salt(I,
197           QG1(I2,Katm,myThid)   = MAX(salt(I,J,K,bi,bj), 0. _d 0)           QG1(I2,Katm,myThid)   = MAX(salt(I,J,K,bi,bj), 0. _d 0)
198           PHIG1(I2,Katm,myThid) = (phiTotal(I,J,K)- ptotalniv5 )           PHIG1(I2,Katm,myThid) = (phiTotal(I,J,K)- ptotalniv5 )
199       &                  + gravity*Hinitial(k)       &                  + gravity*Hinitial(k)
200  C *NOTE* Fix me for lopped cells  C *NOTE* Fix me for lopped cells <== done !
201           if(hFacC(i,j,k,bi,bj).eq.1.) then           IF (maskC(i,j,k,bi,bj).EQ.1.) THEN
202             RHOG1(I2,Katm) = pSurfs(K)/RD/TG1(I2,Katm,myThid)             RHOG1(I2,Katm) = pSurfs(K)/RD/TG1(I2,Katm,myThid)
203           else           ELSE
204             RHOG1(I2,Katm)=0.             RHOG1(I2,Katm)=0.
205           endif           ENDIF
 C *NOTE* Fix me for lopped cells  
206          ENDDO          ENDDO
207         ENDDO         ENDDO
208        ENDDO        ENDDO
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22