Changeset 1857 for LMDZ5/trunk/libf/dyn3dmem/call_calfis_mod.F90

Timestamp:

Sep 2, 2013, 9:50:09 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Remove call to diagedyn. Current diagedyn is supposed to work on global arrays, which is not compatible with dyn3dmem settings. Extra work is required if we want to adapt diagedyn to dyn3dmem (but diagedyn currently doesn't work even in seq mode...).
EM

File:

• LMDZ5/trunk/libf/dyn3dmem/call_calfis_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dmem/call_calfis_mod.F90

@@ -379 +379 @@
     IF (ip_ebil_dyn.ge.1 ) THEN 
       ztit='bil phys'
-      CALL diagedyn(ztit,2,1,1,dtphys,ucov, vcov , ps, p ,pk , teta , q(:,:,1), q(:,:,2))
+!      CALL diagedyn(ztit,2,1,1,dtphys,ucov, vcov , ps, p ,pk , teta , q(:,:,1), q(:,:,2))
+      write(lunout,*)"call_calfis: diagedyn disabled in dyn3dmem !!"
     ENDIF