Changeset 1393 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/fluxstokenc.F

Timestamp:

May 27, 2010, 8:51:35 AM (14 years ago)

Author:

Ehouarn Millour

Message:

Some minor fixes for the Newtonian and Shallow Water cases:
-Some initializations were done twice, causing problems with the FFT filter.
-Some CPP_EARTH preprocessing keys should in fact be CPP_IOIPSL.

Also added some useful debugging options to 'debug' mode in arch-PW6_VARGAS.fcm

EM

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/fluxstokenc.F (modified) (3 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/fluxstokenc.F

@@ -4 +4 @@
       SUBROUTINE fluxstokenc(pbaru,pbarv,masse,teta,phi,phis,
      . time_step,itau )
-#ifdef CPP_EARTH
-! This routine is designed to work for Earth and with ioipsl
+#ifdef CPP_IOIPSL
+! This routine is designed to work with ioipsl
 
        USE IOIPSL
@@ -141 +141 @@
 
          iadvtr=0
-        Print*,'ITAU auqel on stoke les fluxmasses',itau
+        write(lunout,*)'ITAU auquel on stoke les fluxmasses',itau
         
         call histwrite(fluxid, 'masse', itau, massem,
@@ -167 +167 @@
 #else
       write(lunout,*)
-     & 'fluxstokenc: Needs Earth physics (and ioipsl) to function'
+     & 'fluxstokenc: Needs IOIPSL to function'
 #endif
-! of #ifdef CPP_EARTH
+! of #ifdef CPP_IOIPSL
       RETURN
       END