- Timestamp:
- 2021-10-01T14:13:23+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/TRA/trasbc.F90
r14075 r15316 26 26 USE traqsr ! solar radiation penetration 27 27 USE trd_oce ! trends: ocean variables 28 USE trdtra ! trends manager: tracers 28 USE trdtra ! trends manager: tracers 29 !JT 30 USE tradwl ! solar radiation penetration (downwell method) 31 !JT 29 32 #if defined key_asminc 30 33 USE asminc ! Assimilation increment … … 95 98 ! 96 99 !!gm This should be moved into sbcmod.F90 module ? (especially now that ln_traqsr is read in namsbc namelist) 97 IF( .NOT.ln_traqsr ) THEN ! no solar radiation penetration 100 !JT 101 IF( .NOT.ln_traqsr .and. .NOT.ln_tradwl ) THEN ! no solar radiation penetration 102 !JT 98 103 qns(:,:) = qns(:,:) + qsr(:,:) ! total heat flux in qns 99 104 qsr(:,:) = 0._wp ! qsr set to zero
Note: See TracChangeset
for help on using the changeset viewer.