Changeset 559 for LMDZ4/trunk/libf/dyn3d


Ignore:
Timestamp:
Nov 9, 2004, 5:55:41 PM (20 years ago)
Author:
lmdzadmin
Message:

Initialisations diverses YM
LF

Location:
LMDZ4/trunk/libf/dyn3d
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/bilan_dyn.F

    r541 r559  
    298298
    299299c   énergie cinétique
     300      ucont(:,:,:)=0
    300301      CALL covcont(llm,ucov,vcov,ucont,vcont)
    301302      CALL enercin(vcov,ucov,vcont,ucont,ecin)

  • LMDZ4/trunk/libf/dyn3d/leapfrog.F

    r550 r559  
    44c
    55c
    6       SUBROUTINE leapfrog(ucov,vcov,teta,ps,masse,phis,nq,q,clesphy0)
     6      SUBROUTINE leapfrog(ucov,vcov,teta,ps,masse,phis,nq,q,clesphy0,
     7     &                    time_0)
    78
    89#ifdef INCA
Note: See TracChangeset for help on using the changeset viewer.