Changeset 1884 for branches/TAM_V3_0/NEMO/OPA_SRC/opa.F90

Timestamp:

2010-05-27T11:26:52+02:00 (14 years ago)

Author:

rblod

Message:

Light adaptation of NEMO direct model routine to handle TAM

File:

• branches/TAM_V3_0/NEMO/OPA_SRC/opa.F90 (modified) (2 diffs)

branches/TAM_V3_0/NEMO/OPA_SRC/opa.F90

@@ -67 +67 @@
    USE diaptr          ! poleward transports           (dia_ptr_init routine)
 
+   USE tamtrj          ! writing out state trajectory 
+
    USE step            ! OPA time-stepping                  (stp     routine)
 #if defined key_oasis3
@@ -302 +304 @@
       CALL dia_ptr_init                     ! Poleward TRansports initialization
 
+      CALL tam_trj_ini
+      IF(lwp) WRITE(numout,*)'Euler time step switch is ', neuler
       !                                     ! =============== !
       !                                     !  time stepping  !