Ignore:
Timestamp:
Feb 15, 2000, 2:01:27 PM (25 years ago)
Author:
lmdz
Message:

Calcul de valeurs uniques aux poles (suppression du test alphax)
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/dyn3d/etat0_netcdf.F

    r24 r50  
    284284      print *,' ALPHAX ',alphax
    285285
    286       IF( alphax.NE.0. )   THEN
    287        DO  l = 1, llm
    288          DO  i    = 1, iim
     286      DO  l = 1, llm
     287        DO  i    = 1, iim
    289288          xppn(i) = aire( i, 1   ) * masse(  i     ,  1   , l )
    290289          xpps(i) = aire( i,jjp1 ) * masse(  i     , jjp1 , l )
    291          ENDDO
     290        ENDDO
    292291          xpn      = SUM(xppn)/apoln
    293292          xps      = SUM(xpps)/apols
    294          DO i   = 1, iip1
     293        DO i   = 1, iip1
    295294          masse(   i   ,   1     ,  l )   = xpn
    296295          masse(   i   ,   jjp1  ,  l )   = xps
    297          ENDDO
    298        ENDDO
    299       ENDIF
     296        ENDDO
     297      ENDDO
    300298      q3d(iip1,:,:,:) = q3d(1,:,:,:)
    301299      phis(iip1,:) = phis(1,:)
Note: See TracChangeset for help on using the changeset viewer.