- Timestamp:
- 2015-06-09T00:48:54+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90
r5376 r5381 180 180 WRITE(numout,*) 181 181 ENDIF 182 183 IF( nn_components /= jp_iam_sas ) THEN 184 ! 185 !! switch off stuff that isn't sensible with a standalone module 186 !! note that we need sbc_ssm called first in sbc 187 ! 188 IF( ln_apr_dyn ) THEN 189 IF( lwp ) WRITE(numout,*) 'No atmospheric gradient needed with StandAlone Surface scheme' 190 ln_apr_dyn = .FALSE. 191 ENDIF 192 IF( ln_dm2dc ) THEN 193 IF( lwp ) WRITE(numout,*) 'No diurnal cycle needed with StandAlone Surface scheme' 194 ln_dm2dc = .FALSE. 195 ENDIF 196 IF( ln_rnf ) THEN 197 IF( lwp ) WRITE(numout,*) 'No runoff needed with StandAlone Surface scheme' 198 ln_rnf = .FALSE. 199 ENDIF 200 IF( ln_ssr ) THEN 201 IF( lwp ) WRITE(numout,*) 'No surface relaxation needed with StandAlone Surface scheme' 202 ln_ssr = .FALSE. 203 ENDIF 204 IF( nn_fwb > 0 ) THEN 205 IF( lwp ) WRITE(numout,*) 'No freshwater budget adjustment needed with StandAlone Surface scheme' 206 nn_fwb = 0 207 ENDIF 208 IF( nn_closea > 0 ) THEN 209 IF( lwp ) WRITE(numout,*) 'No closed seas adjustment needed with StandAlone Surface scheme' 210 nn_closea = 0 211 ENDIF 212 182 ! 183 !! switch off stuff that isn't sensible with a standalone module 184 !! note that we need sbc_ssm called first in sbc 185 ! 186 IF( ln_apr_dyn ) THEN 187 IF( lwp ) WRITE(numout,*) 'No atmospheric gradient needed with StandAlone Surface scheme' 188 ln_apr_dyn = .FALSE. 189 ENDIF 190 IF( ln_rnf ) THEN 191 IF( lwp ) WRITE(numout,*) 'No runoff needed with StandAlone Surface scheme' 192 ln_rnf = .FALSE. 193 ENDIF 194 IF( ln_ssr ) THEN 195 IF( lwp ) WRITE(numout,*) 'No surface relaxation needed with StandAlone Surface scheme' 196 ln_ssr = .FALSE. 197 ENDIF 198 IF( nn_fwb > 0 ) THEN 199 IF( lwp ) WRITE(numout,*) 'No freshwater budget adjustment needed with StandAlone Surface scheme' 200 nn_fwb = 0 201 ENDIF 202 IF( nn_closea > 0 ) THEN 203 IF( lwp ) WRITE(numout,*) 'No closed seas adjustment needed with StandAlone Surface scheme' 204 nn_closea = 0 213 205 ENDIF 214 206 !
Note: See TracChangeset
for help on using the changeset viewer.