Changeset 1018


Ignore:
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

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r1017 r1018  
    11731173        ! sponge layer
    11741174        if (callsponge) then
    1175           call Register_SwapFieldHallo(ps,ps,ip1jmp1,1,
    1176      &                          jj_Nb_dissip,1,1,Request_dissip)
    11771175          call Register_Hallo(ps,ip1jm,1,1,1,1,1,Request_Dissip)
    11781176          call SendRequest(Request_Dissip)

  • trunk/LMDZ.VENUS/libf/phyvenus/rcm1d.F

    r1017 r1018  
    1 #include "../dyn3d/cpdet_mod.F90"
    2 !***********************************************************************
    31      PROGRAM rcm1d
    42     
    … …  
    467465#include "../dyn3d/disvert_noterre.F"
    468466#include "../dyn3d/abort_gcm.F"
    469 #include "../dyn3d/dump2d.F"
    470 
     467!#include "../dyn3d/dump2d.F"
     468
Note: See TracChangeset for help on using the changeset viewer.