Changeset 1725 for trunk/NEMO/OPA_SRC/opa.F90

Timestamp:

2009-11-12T16:04:08+01:00 (14 years ago)

Author:

smasson

Message:

control xml attributes from NEMO, see ticket:597

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/opa.F90

@@ -45 +45 @@
    USE bdyini          ! unstructured open boundary cond. initialization (bdy_init routine)
    USE istate          ! initial state setting          (istate_init routine)
+   USE sbcmod          ! surface boundary condition 
    USE eosbn2          ! equation of state                 (eos_init routine)
    USE dynhpg          ! hydrostatic pressure gradient
@@ -257 +258 @@
 
       !                                     ! Ocean physics
+      CALL sbc_init                             ! Read namsbc namelist : surface module (needed for iom_init)
       CALL ldf_tra_init                         ! Lateral ocean tracer physics
       CALL ldf_dyn_init                         ! Lateral ocean momentum physics
@@ -266 +268 @@
 
       !                                     ! diagnostics
-      CALL iom_init( fjulday - adatrj )         ! iom_put initialization
+      CALL iom_init                             ! iom_put initialization
       CALL dia_ptr_init                         ! Poleward TRansports initialization
       CALL trd_mod_init                         ! Mixed-layer/Vorticity/Integral constraints trends