- Timestamp:
- 2013-07-03T16:20:05+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r3875 r3954 115 115 nn_ice = 0 116 116 ENDIF 117 117 118 118 IF(lwp) THEN ! Control print 119 119 WRITE(numout,*) ' Namelist namsbc (partly overwritten with CPP key setting)' … … 225 225 IF( nsbc == 6 ) WRITE(numout,*) ' MFS Bulk formulation' 226 226 ENDIF 227 227 228 ! 228 229 IF( ln_ssr ) CALL sbc_ssr_init ! Sea-Surface Restoring initialisation … … 230 231 IF( nn_ice == 4 ) CALL cice_sbc_init( nsbc ) ! CICE initialisation 231 232 ! 233 232 234 END SUBROUTINE sbc_init 233 235
Note: See TracChangeset
for help on using the changeset viewer.