Changeset 1190 for trunk

Timestamp:

Feb 27, 2014, 8:25:42 AM (11 years ago)

Author:

emillour

Message:

Common dynamics:

• bug fix: setting and updating halos for surface pressure (when it is modified by the physics) was missing.

EM

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F

@@ -897 +897 @@
      *                               jj_Nb_physic,1,2,Request_physic)
 
+        call Register_SwapFieldHallo(ps,ps,ip1jmp1,1,
+     *                               jj_Nb_physic,2,2,Request_physic)
+
         call Register_SwapFieldHallo(p,p,ip1jmp1,llmp1,
      *                               jj_Nb_physic,2,2,Request_physic)
@@ -1080 +1083 @@
         
         call Register_SwapField(masse,masse,ip1jmp1,llm,
+     *                               jj_Nb_caldyn,Request_physic)
+
+        call Register_SwapField(ps,ps,ip1jmp1,1,
      *                               jj_Nb_caldyn,Request_physic)