Changeset 422
- Timestamp:
- 2006-03-21T10:16:38+01:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/ZDF/zdftke.F90
r258 r422 21 21 USE taumod ! surface stress 22 22 USE prtctl ! Print control 23 USE traadv_ctl ! advection scheme control 23 24 24 25 IMPLICIT NONE … … 791 792 ! Background profile of avt (fit a theoretical/observational profile (Krauss 1990) 792 793 avmb(:) = avm0 793 avtb(:) = 1.e-5 + 2.8e-8* gdepw(:) ! m2/s794 avtb(:) = avt0 + ( 3.0e-4 - 2 * avt0 ) * 1.0e-4 * gdepw(:) ! m2/s 794 795 ENDIF 795 796 796 ! Increase the background in the surface layers 797 avmb(1) = 10. * avmb(1) ; avtb(1) = 10. * avtb(1) 798 avmb(2) = 10. * avmb(2) ; avtb(2) = 10. * avtb(2) 799 avmb(3) = 5. * avmb(3) ; avtb(3) = 5. * avtb(3) 800 avmb(4) = 2.5 * avmb(4) ; avtb(4) = 2.5 * avtb(4) 797 IF( cp_cfg == "orca" .AND. jp_cfg == 2 .AND. ln_traadv_cen2 ) THEN 798 ! Increase the background in the surface layers 799 avmb(1) = 10. * avmb(1) ; avtb(1) = 10. * avtb(1) 800 avmb(2) = 10. * avmb(2) ; avtb(2) = 10. * avtb(2) 801 avmb(3) = 5. * avmb(3) ; avtb(3) = 5. * avtb(3) 802 avmb(4) = 2.5 * avmb(4) ; avtb(4) = 2.5 * avtb(4) 803 ENDIF 801 804 802 805
Note: See TracChangeset
for help on using the changeset viewer.