Changeset 977
- Timestamp:
- 2008-05-15T16:24:02+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/dtadyn.F90
r956 r977 34 34 35 35 !! * Module variables 36 INTEGER , PUBLIC, PARAMETER :: jpflx = 1336 INTEGER , PUBLIC, PARAMETER :: jpflx = 7 37 37 INTEGER , PUBLIC, PARAMETER :: & 38 38 jptaux = 1 , & ! indice in flux for taux 39 39 jptauy = 2 , & ! indice in flux for tauy 40 jpwind = 3 , & ! indice in flux for wspd 41 jpemp = 4 , & ! indice in flux for E-P 42 jpice = 5 , & ! indice in flux for ice concentration 43 jpqsr = 6 ! indice in flux for shortwave heat flux 40 jpemp = 3 , & ! indice in flux for E-P 41 jpice = 4 , & ! indice in flux for ice concentration 42 jpqsr = 5 ! indice in flux for shortwave heat flux 44 43 45 44 LOGICAL , PUBLIC :: & … … 562 561 ! keep needed fluxes 563 562 ! 564 !! wndm(:,:) = flx(:,:,jpwind)565 563 freeze(:,:) = flx(:,:,jpice) 566 564 emp(:,:) = flx(:,:,jpemp) … … 627 625 ! keep needed fluxes 628 626 ! 629 !! wndm(:,:) = flx(:,:,jpwind)630 627 freeze(:,:) = flx(:,:,jpice) 631 628 emp(:,:) = flx(:,:,jpemp) … … 683 680 684 681 REAL(wp), DIMENSION(jpi,jpj) :: & 685 zemp, zqsr, zmld, zice , zwspd682 zemp, zqsr, zmld, zice 686 683 #if defined key_trcbbl_dif || defined key_trcbbl_adv 687 684 REAL(wp), DIMENSION(jpi,jpj) :: & … … 759 756 CALL iom_get ( numfl_t, jpdom_data, 'soshfldo', zqsr (:,: ), jkenr ) 760 757 CALL iom_get ( numfl_t, jpdom_data, 'soicecov', zice (:,: ), jkenr ) 761 !! CALL iom_get ( numfl_t, jpdom_data, 'sowindsp', zwspd(:,: ), jkenr )762 758 763 759 ! file grid-U … … 891 887 ! flux : 892 888 ! 893 !! flxdta(:,:,jpwind,2) = zwspd(:,:) * tmask(:,:,1)894 889 flxdta(:,:,jpice,2) = MIN( 1., zice(:,:) ) * tmask(:,:,1) 895 890 flxdta(:,:,jpemp,2) = zemp(:,:) * tmask(:,:,1)
Note: See TracChangeset
for help on using the changeset viewer.