Changeset 3333 for branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM
- Timestamp:
- 2012-03-20T11:19:32+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/sbcmod.F90
r3331 r3333 106 106 nn_ice = 0 107 107 ENDIF 108 IF( lwp ) THEN 109 IF( ln_cpl ) THEN 110 WRITE(numout,*) 'Coupled mode not sensible with StandAlone Surface scheme' 111 ln_cpl = .FALSE. 112 ENDIF 113 IF( ln_apr_dyn ) THEN 114 WRITE(numout,*) 'No atmospheric gradient needed with StandAlone Surface scheme' 115 ln_apr_dyn = .FALSE. 116 ENDIF 117 IF( ln_dm2dc ) THEN 118 WRITE(numout,*) 'No diurnal cycle needed with StandAlone Surface scheme' 119 ln_dm2dc = .FALSE. 120 ENDIF 121 IF( ln_rnf ) THEN 122 WRITE(numout,*) 'No runoff needed with StandAlone Surface scheme' 123 ln_rnf = .FALSE. 124 ENDIF 125 IF( ln_ssr ) THEN 126 WRITE(numout,*) 'No surface relaxation needed with StandAlone Surface scheme' 127 ln_ssr = .FALSE. 128 ENDIF 129 IF( nn_fwb > 0 ) THEN 130 WRITE(numout,*) 'No freshwater budget adjustment needed with StandAlone Surface scheme' 131 nn_fwb = 0 132 ENDIF 133 IF( nn_closea > 0 ) THEN 134 WRITE(numout,*) 'No closed seas adjustment needed with StandAlone Surface scheme' 135 nn_closea = 0 136 ENDIF 108 IF( ln_cpl ) THEN 109 IF( lwp ) WRITE(numout,*) 'Coupled mode not sensible with StandAlone Surface scheme' 110 ln_cpl = .FALSE. 111 ENDIF 112 IF( ln_apr_dyn ) THEN 113 IF( lwp ) WRITE(numout,*) 'No atmospheric gradient needed with StandAlone Surface scheme' 114 ln_apr_dyn = .FALSE. 115 ENDIF 116 IF( ln_dm2dc ) THEN 117 IF( lwp ) WRITE(numout,*) 'No diurnal cycle needed with StandAlone Surface scheme' 118 ln_dm2dc = .FALSE. 119 ENDIF 120 IF( ln_rnf ) THEN 121 IF( lwp ) WRITE(numout,*) 'No runoff needed with StandAlone Surface scheme' 122 ln_rnf = .FALSE. 123 ENDIF 124 IF( ln_ssr ) THEN 125 IF( lwp ) WRITE(numout,*) 'No surface relaxation needed with StandAlone Surface scheme' 126 ln_ssr = .FALSE. 127 ENDIF 128 IF( nn_fwb > 0 ) THEN 129 IF( lwp ) WRITE(numout,*) 'No freshwater budget adjustment needed with StandAlone Surface scheme' 130 nn_fwb = 0 131 ENDIF 132 IF( nn_closea > 0 ) THEN 133 IF( lwp ) WRITE(numout,*) 'No closed seas adjustment needed with StandAlone Surface scheme' 134 nn_closea = 0 137 135 ENDIF 138 136
Note: See TracChangeset
for help on using the changeset viewer.