Changeset 920 for trunk/NEMO/OPA_SRC/SBC/sbcana.F90

Timestamp:

2008-05-09T13:26:34+02:00 (16 years ago)

Author:

rblod

Message:

Correct incompatibilities with Agrif (easier part), see ticket #133

File:

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

trunk/NEMO/OPA_SRC/SBC/sbcana.F90

@@ -35 +35 @@
    REAL(wp) ::   rn_qsr0   = 0.e0   !     solar heat flux
    REAL(wp) ::   rn_emp0   = 0.e0   ! net freshwater flux
-   NAMELIST/namsbc_ana/ nn_tau000, rn_utau0, rn_vtau0, rn_qns0, rn_qsr0, rn_emp0
    
    !! * Substitutions
@@ -67 +66 @@
       REAL(wp)            ::   zfacto   ! local scalar
       !!---------------------------------------------------------------------
+      NAMELIST/namsbc_ana/ nn_tau000, rn_utau0, rn_vtau0, rn_qns0, rn_qsr0, rn_emp0
       !
       IF( kt == nit000 ) THEN