Changeset 550 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Oct 19, 2004, 11:17:30 AM (20 years ago)
Author:
lmdzadmin
Message:

time_0 n'etait pas passe a leapfrog YM
LF

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

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/dyn3d/gcm.F

    r541 r550  
    383383
    384384
    385       CALL leapfrog(ucov,vcov,teta,ps,masse,phis,nq,q,clesphy0)
     385      CALL leapfrog(ucov,vcov,teta,ps,masse,phis,nq,q,clesphy0,
     386     .              time_0)
    386387
    387388
  • LMDZ4/trunk/libf/dyn3d/leapfrog.F

    r541 r550  
    199199        call guide(itau,ucov,vcov,teta,q,masse,ps)
    200200      else
    201         print*,'attention on ne guide pas les 6 dernieres heures'
     201        IF(prt_level>9)WRITE(*,*)'attention on ne guide pas les ',
     202     .    '6 dernieres heures'
    202203      endif
    203204#endif
     
    485486
    486487            IF( itau. EQ. itaufinp1 ) then 
    487        write(79,*) 'ucov',ucov
    488        write(80,*) 'vcov',vcov
    489        write(81,*) 'teta',teta
    490        write(82,*) 'ps',ps
    491        write(83,*) 'q',q
    492        WRITE(85,*) 'q1 = ',q(:,:,1)
    493        WRITE(86,*) 'q3 = ',q(:,:,3)
     488c$$$       write(79,*) 'ucov',ucov
     489c$$$       write(80,*) 'vcov',vcov
     490c$$$       write(81,*) 'teta',teta
     491c$$$       write(82,*) 'ps',ps
     492c$$$       write(83,*) 'q',q
     493c$$$       WRITE(85,*) 'q1 = ',q(:,:,1)
     494c$$$       WRITE(86,*) 'q3 = ',q(:,:,3)
    494495
    495496              abort_message = 'Simulation finished'
Note: See TracChangeset for help on using the changeset viewer.