Changeset 1725 for trunk/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

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

Author:

smasson

Message:

control xml attributes from NEMO, see ticket:597

File:

• trunk/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -42 +42 @@
 
    PUBLIC   sbc        ! routine called by step.F90
+   PUBLIC   sbc_init   ! routine called by opa.F90
    
    INTEGER ::   nsbc   ! type of surface boundary condition (deduced from namsbc informations)
@@ -187 +188 @@
       !!---------------------------------------------------------------------
 
-      IF( kt == nit000 )   CALL sbc_init         ! Read namsbc namelist : surface module
-      !
       CALL iom_setkt( kt + nn_fsbc - 1 )         !  in sbc, iom_put is called every nn_fsbc time step
       !