Changeset 1056 for trunk/LMDZ.COMMON/libf/dyn3d/leapfrog.F

Timestamp:

Oct 7, 2013, 6:42:03 PM (11 years ago)

Author:

slebonnois

Message:

SL: Titan runs ! see DOC/chantiers/commit_importants.log

File:

• trunk/LMDZ.COMMON/libf/dyn3d/leapfrog.F (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d/leapfrog.F

@@ -529 +529 @@
 ! #endif of #ifdef CPP_IOIPSL
 
+c          call WriteField('pfi',reshape(p,(/iip1,jmp1,llmp1/)))
+
          CALL calfis( lafin , jD_cur, jH_cur,
      $               ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,
@@ -534 +536 @@
      $               flxw,
      $               dufi,dvfi,dtetafi,dqfi,dpfi  )
+
+c          call WriteField('dufi',reshape(dufi,(/iip1,jmp1,llm/)))
+c          call WriteField('dvfi',reshape(dvfi,(/iip1,jjm,llm/)))
+c          call WriteField('dtetafi',reshape(dtetafi,(/iip1,jmp1,llm/)))
 
 c      ajout des tendances physiques: