Changeset 155 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2004-10-19T15:36:34+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/tau_coupled_ice.h90
r3 r155 7 7 !! sea-ice model 8 8 !!---------------------------------------------------------------------- 9 !! * Modules used10 USE ioipsl ! NetCDF library11 9 !!---------------------------------------------------------------------- 12 10 !! OPA 9.0 , LODYC-IPSL (2003) … … 41 39 !! 8.5 ! 02-11 (G. Madec) F90: Free form and module 42 40 !!---------------------------------------------------------------------- 41 !! * Modules used 42 USE ioipsl ! NetCDF library 43 USE cpl_oce ! coupled ocean-atmosphere variables 44 USE geo2ocean ! ??? 45 43 46 !! * Arguments 44 47 INTEGER, INTENT( in ) :: kt ! ocean time step … … 46 49 !! * Local declarations 47 50 INTEGER :: ji,jj,jf 48 INTEGER :: itm1,isize,iflag,icpliter,info,inuread,index 51 INTEGER :: itm1,isize,iflag,info,inuread,index 52 ! INTEGER :: icpliter 49 53 REAL(wp), DIMENSION(jpidta,jpjdta) :: & 50 54 ztauxxu, ztauyyu, ztauzzu, & ! 3 components of the wind stress … … 65 69 ! Addition for SIPC CASE 66 70 CHARACTER (len=3) :: clmodinf ! Header or not 67 CHARACTER (len=3) :: cljobnam_r ! Experiment name in the field brick, if any68 INTEGER ,DIMENSION(3) :: infos ! infos in the field brick, if any71 ! CHARACTER (len=3) :: cljobnam_r ! Experiment name in the field brick, if any 72 ! INTEGER ,DIMENSION(3) :: infos ! infos in the field brick, if any 69 73 !!--------------------------------------------------------------------- 70 74 … … 243 247 IF( nitend-kt < nexco ) CALL histclo( nidct ) 244 248 245 ! Pour l'instant pas de différentiation de tension de vent mer libre / glace246 ! 9: la tension de vent sur l'ocean suivant i247 sciobc (:,:, 9) = taux248 ! 10: la tension de vent sur la glace suivant i249 sciobc (:,:,10) = taux250 ! 11: la tension de vent sur l'ocean suivant j251 sciobc (:,:,11) = tauy252 ! 12: la tension de vent sur la glace suivant j253 sciobc (:,:,12) = tauy254 255 249 ENDIF 256 250 257 END SUBROUTINE flx251 END SUBROUTINE tau
Note: See TracChangeset
for help on using the changeset viewer.