Changeset 798 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Oct 1, 2012, 9:33:54 AM (12 years ago)
Author:
tnavarro
Message:

modification that allows to have "1+1=2" with dynamical core only.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/dyn3d/gcm.F

    r795 r798  
    189189c
    190190
    191       CALL pression ( ip1jmp1, ap, bp, ps, p       )
    192191
    193192      call dump2d(iip1,jjp1,ps,'PRESSION SURFACE')
    194       CALL exner_hyb( ip1jmp1, ps, p,beta, pks, pk, pkf )
    195193
    196194c
    … …  
    249247   1  CONTINUE
    250248c
     249c TN 09/2012. To ensure "1+1=2" in dynamical core :
     250c update atmospheric pressure IN the main loop
     251      CALL pression ( ip1jmp1, ap, bp, ps, p       )
     252      CALL exner_hyb( ip1jmp1, ps, p,beta, pks, pk, pkf )
     253
    251254      IF( MOD( itau, 10* day_step ).EQ.0 )  THEN
    252255        CALL test_period ( ucov,vcov,teta,q,p,phis )
Note: See TracChangeset for help on using the changeset viewer.