Changeset 3901 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90

Timestamp:

2013-05-03T14:35:21+02:00 (11 years ago)

Author:

clevy

Message:

Configuration Setting/Step2, see ticket:#1074

File:

• branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90 (modified) (1 diff)

branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90

@@ -27 +27 @@
    PUBLIC   sbc_gyre   ! routine called in sbcmod module
 
-   !                                !!* Namelist namsbc_ana *
-   INTEGER  ::   nn_tau000 = 1       ! nb of time-step during which the surface stress
-   !                                 ! increase from 0 to its nominal value 
-   REAL(wp) ::   rn_utau0  = 0._wp   ! constant wind stress value in i-direction
-   REAL(wp) ::   rn_vtau0  = 0._wp   ! constant wind stress value in j-direction
-   REAL(wp) ::   rn_qns0   = 0._wp   ! non solar heat flux
-   REAL(wp) ::   rn_qsr0   = 0._wp   !     solar heat flux
-   REAL(wp) ::   rn_emp0   = 0._wp   ! net freshwater flux
+   !                       !!* Namelist namsbc_ana *
+   INTEGER  ::   nn_tau000  ! nb of time-step during which the surface stress
+   !                        ! increase from 0 to its nominal value 
+   REAL(wp) ::   rn_utau0   ! constant wind stress value in i-direction
+   REAL(wp) ::   rn_vtau0   ! constant wind stress value in j-direction
+   REAL(wp) ::   rn_qns0    ! non solar heat flux
+   REAL(wp) ::   rn_qsr0    !     solar heat flux
+   REAL(wp) ::   rn_emp0    ! net freshwater flux
    
    !! * Substitutions