Changeset 985 for LMDZ4/trunk/libf/dyn3dpar/dissip_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/dissip_p.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/dissip_p.F

@@ -99 +99 @@
       ENDIF
 
-c      call write_field3d_p('gdx',reshape(gdx,(/iip1,jjp1,llm/)))
-c     call write_field3d_p('gdy',reshape(gdy,(/iip1,jjm,llm/)))
-c       stop
 
       ijb=ij_begin
@@ -143 +140 @@
       ENDIF
 
-c      call write_field3d_p('grx',reshape(grx,(/iip1,jjp1,llm/)))
-c      call write_field3d_p('gry',reshape(gry,(/iip1,jjm,llm/)))
-c          stop