- Timestamp:
- 2010-11-10T08:48:54+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90
r2287 r2370 4 4 !! Surface module : variables defined in core memory 5 5 !!====================================================================== 6 !! History : 3.0 ! 2006-06 (G. Madec) Original code 7 !! - ! 2008-08 (G. Madec) namsbc moved from sbcmod 8 !! 3.3 ! 2010-04 (M. Leclair, G. Madec) Forcing averaged over 2 time steps 6 !! History : 3.0 ! 2006-06 (G. Madec) Original code 7 !! - ! 2008-08 (G. Madec) namsbc moved from sbcmod 8 !! 3.3 ! 2010-04 (M. Leclair, G. Madec) Forcing averaged over 2 time steps 9 !! - ! 2010-11 (G. Madec) ice-ocean stress always computed at each ocean time-step 9 10 !!---------------------------------------------------------------------- 10 11 USE par_oce ! ocean parameters … … 30 31 ! !: = 1 global mean of e-p-r set to zero at each nn_fsbc time step 31 32 ! !: = 2 annual global mean of e-p-r set to zero 32 INTEGER , PUBLIC :: nn_ico_cpl = 0 !: ice-ocean coupling indicator33 ! !: = 0 LIM-3 old case34 ! !: = 1 stresses computed using now ocean velocity35 ! !: = 2 combination of 0 and 1 cases36 33 37 34 !!---------------------------------------------------------------------- 38 35 !! Ocean Surface Boundary Condition fields 39 36 !!---------------------------------------------------------------------- 40 LOGICAL , PUBLIC :: lhftau = .FALSE. 37 LOGICAL , PUBLIC :: lhftau = .FALSE. !: HF tau used in TKE: mean(stress module) - module(mean stress) 41 38 !! !! now ! before !! 42 39 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: utau , utau_b !: sea surface i-stress (ocean referential) [N/m2] … … 53 50 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: emp_tot !: total E-P over ocean and ice [Kg/m2/s] 54 51 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: rnf , rnf_b !: river runoff [Kg/m2/s] 55 ! - ML - begin52 !! 56 53 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpts) :: sbc_tsc, sbc_tsc_b !: sbc content trend [K.m/s] 57 54 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) :: qsr_hc , qsr_hc_b !: heat content trend due to qsr flux [K.m/s] 58 ! - ML - end55 !! 59 56 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: tprecip !: total precipitation [Kg/m2/s] 60 57 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: sprecip !: solid precipitation [Kg/m2/s] … … 63 60 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: atm_co2 !: atmospheric pCO2 [ppm] 64 61 #endif 65 !!$ REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: rrunoff !: runoff66 !!$ REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: calving !: calving67 62 68 63 !!---------------------------------------------------------------------- … … 79 74 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 80 75 !! $Id$ 81 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)76 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 82 77 !!====================================================================== 83 78 END MODULE sbc_oce
Note: See TracChangeset
for help on using the changeset viewer.