Changeset 1018 for trunk/LMDZ.COMMON/libf

Timestamp:

Aug 23, 2013, 3:30:20 PM (11 years ago)

Author:

emillour

Message:

Dynamics & Venus: Small fixes
-leapfrog_p.F : remove unecessary call to Register_SwapFieldHallo in sponge dissipation

• rcm1d.F : remove the include of the cpdet module (causes problems with fcm and it seems we can do without with makelmdz).

EM

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F (modified) (1 diff)

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

@@ -1173 +1173 @@
         ! sponge layer
         if (callsponge) then
-          call Register_SwapFieldHallo(ps,ps,ip1jmp1,1,
-     &                          jj_Nb_dissip,1,1,Request_dissip)
           call Register_Hallo(ps,ip1jm,1,1,1,1,1,Request_Dissip)
           call SendRequest(Request_Dissip)