Changeset 1457 for trunk/NEMO/TOP_SRC/trcini.F90

Timestamp:

2009-05-23T10:16:38+02:00 (15 years ago)

Author:

cetlod

Message:

distribution of iom_put in TOP routines, see ticket:437

File:

• trunk/NEMO/TOP_SRC/trcini.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/trcini.F90

@@ -27 +27 @@
    USE trcini_c14b     ! C14 bomb initialisation
    USE trcini_my_trc   ! MY_TRC   initialisation
-   USE trcdta    
+   USE trcdta   
+#if defined key_off_tra 
+   USE daymod
+#endif
    USE zpshde_trc      ! partial step: hor. derivative 
    USE in_out_manager  ! I/O manager
@@ -107 +110 @@
 
       IF( .NOT. lrsttr ) THEN 
+#if defined key_off_tra
+         CALL day_init      ! calendar
+#endif
 # if defined key_dtatrc
          ! Initialization of tracer from a file that may also be used for damping
@@ -117 +123 @@
       ELSE
          CALL trc_rst_read      ! restart from a file
+#if defined key_off_tra
+         CALL day_init          ! calendar
+#endif
       ENDIF