Changeset 985 for LMDZ4/trunk/libf/dyn3dpar/guide_p.F

Timestamp:

Jul 30, 2008, 5:50:03 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Mise a jour de dyn3dpar par rapport a dyn3d, inclusion OpenMP et filtre FFT YM
LF

File:

• LMDZ4/trunk/libf/dyn3dpar/guide_p.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/guide_p.F

@@ -128 +128 @@
       jjn=jj_nb
       
-      print*,'OK0'
       CALL pression_p( ip1jmp1, ap, bp, ps, p )
       call massdair_p(p,masse)
-      print*,'OK1'
       CALL exner_hyb_p(ip1jmp1,ps,p,alpha,beta,pks,pk,pkf)
-      print*,'OK2'
       tnat(ijb:ije,:)=pk(ijb:ije,:)*teta(ijb:ije,:)/cpp
-      print*,'OK3'
       unskap   = 1./ kappa
       pres(ijb:ije,:)=preff*(pk(ijb:ije,:)/cpp)**unskap
-      print*,'OK4'
       call q_sat(iip1*jjn*llm,tnat(ijb:ije,:),pres(ijb:ije,:),
      .            qsat(ijb:ije,:))
@@ -151 +146 @@
 c-----------------------------------------------------------------------
 
-      print*,'ONLINE=',online
       if(online.eq.-1) then
           return