Changeset 49 for LMDZ.3.3/trunk/libf


Ignore:
Timestamp:
Feb 9, 2000, 4:53:35 PM (25 years ago)
Author:
lmdz
Message:

Calcul d'une valeur unique aux poles pour la pression au sol. P. Levan
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/trunk/libf/dyn3d/gcm.F

    r35 r49  
    466466        ENDDO
    467467
     468        DO ij =  1,iim
     469          tppn(ij)  = aire(  ij    ) * ps (  ij    )
     470          tpps(ij)  = aire(ij+ip1jm) * ps (ij+ip1jm)
     471        ENDDO
     472          tpn  = SSUM(iim,tppn,1)/apoln
     473          tps  = SSUM(iim,tpps,1)/apols
     474
     475        DO ij = 1, iip1
     476          ps(  ij    ) = tpn
     477          ps(ij+ip1jm) = tps
     478        ENDDO
     479
    468480
    469481      END IF
Note: See TracChangeset for help on using the changeset viewer.