Changeset 920 for trunk/NEMO/OPA_SRC/SBC/sbcana.F90
- Timestamp:
- 2008-05-09T13:26:34+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcana.F90
r888 r920 35 35 REAL(wp) :: rn_qsr0 = 0.e0 ! solar heat flux 36 36 REAL(wp) :: rn_emp0 = 0.e0 ! net freshwater flux 37 NAMELIST/namsbc_ana/ nn_tau000, rn_utau0, rn_vtau0, rn_qns0, rn_qsr0, rn_emp038 37 39 38 !! * Substitutions … … 67 66 REAL(wp) :: zfacto ! local scalar 68 67 !!--------------------------------------------------------------------- 68 NAMELIST/namsbc_ana/ nn_tau000, rn_utau0, rn_vtau0, rn_qns0, rn_qsr0, rn_emp0 69 69 ! 70 70 IF( kt == nit000 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.