Changeset 10425 for NEMO/trunk/src/OCE/SBC/sbcssm.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcssm.F90
r10068 r10425 18 18 USE sbcapr ! surface boundary condition: atmospheric pressure 19 19 USE eosbn2 ! equation of state and related derivatives 20 USE traqsr, ONLY: ln_traqsr 20 21 ! 21 22 USE in_out_manager ! I/O manager … … 253 254 ENDIF 254 255 ! 256 IF( .NOT. ln_traqsr ) fraqsr_1lev(:,:) = 1._wp ! default definition: qsr 100% in the fisrt level 257 ! 255 258 IF( lwxios.AND.nn_fsbc > 1 ) THEN 256 259 CALL iom_set_rstw_var_active('nn_fsbc')
Note: See TracChangeset
for help on using the changeset viewer.