Changeset 1707 for LMDZ5/branches/testing/libf/dyn3dmem/dynredem_loc.F

Timestamp:

Jan 11, 2013, 10:19:19 AM (12 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1706

---

Testing release based on r1706

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/dynredem_loc.F (modified) (3 diffs)

LMDZ5/branches/testing/libf/dyn3dmem/dynredem_loc.F

@@ -1 +1 @@
 !
-! $Id: dynredem_p.F 1299 2010-01-20 14:27:21Z fairhead $
+! $Id$
 !
 c
@@ -126 +126 @@
        tab_cntrl(30) =  REAL(iday_end)
        tab_cntrl(31) =  REAL(itau_dyn + itaufin)
+c start_time: start_time of simulation (not necessarily 0.)
+       tab_cntrl(32) = start_time
 c
 c    .........................................................
@@ -635 +637 @@
       CALL dynredem_write_u(nid,"ps",ps,1)
 
-      IF (config_inca == 'none') THEN
+      IF (type_trac /= 'inca') THEN
         DO iq=1,nqtot
           CALL dynredem_write_u(nid,tname(iq),q(:,:,iq),llm)