Changeset 3189 for branches/2011/dev_NEMO_MERGE_2011
- Timestamp:
- 2011-11-29T14:37:29+01:00 (12 years ago)
- Location:
- branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r3186 r3189 37 37 USE ice_state, only: aice,aicen,uvel,vvel,vsnon,vicen 38 38 USE ice_flux, only: strax,stray,strocnx,strocny,frain,fsnow, & 39 sst,sss,uocn,vocn, fsalt_gbm,fresh_gbm,&40 f hocn_gbm,fswthru_gbm,frzmlt,&39 sst,sss,uocn,vocn,ss_tltx,ss_tlty,fsalt_gbm, & 40 fresh_gbm,fhocn_gbm,fswthru_gbm,frzmlt, & 41 41 flatn_f,fsurfn_f,fcondtopn_f, & 42 42 uatm,vatm,wind,fsw,flw,Tair,potT,Qa,rhoa,zlvl, & … … 375 375 CALL nemo2cice(ztmp,vocn,'F', -1. ) 376 376 377 ! x comp and y comp of sea surface slope (on F points) 378 ! T point to F point 379 DO jj=1,jpjm1 380 DO ji=1,jpim1 381 ztmp(ji,jj)=0.5 * ( (ssh_m(ji+1,jj )-ssh_m(ji,jj ))/e1u(ji,jj ) & 382 + (ssh_m(ji+1,jj+1)-ssh_m(ji,jj+1))/e1u(ji,jj+1) ) & 383 * fmask(ji,jj,1) 384 ENDDO 385 ENDDO 386 CALL nemo2cice(ztmp,ss_tltx,'F', -1. ) 387 388 ! T point to F point 389 DO jj=1,jpjm1 390 DO ji=1,jpim1 391 ztmp(ji,jj)=0.5 * ( (ssh_m(ji ,jj+1)-ssh_m(ji ,jj))/e2v(ji ,jj) & 392 + (ssh_m(ji+1,jj+1)-ssh_m(ji+1,jj))/e2v(ji+1,jj) ) & 393 * fmask(ji,jj,1) 394 ENDDO 395 ENDDO 396 CALL nemo2cice(ztmp,ss_tlty,'F', -1. ) 397 377 398 CALL wrk_dealloc( jpi,jpj, ztmp ) 378 399 CALL wrk_dealloc( jpi,jpj,ncat, ztmpn ) -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r2784 r3189 376 376 ENDIF 377 377 ! 378 rnf(:,:) = 0._wp ! runoff initialisation 378 379 rnf_tsc(:,:,:) = 0._wp ! runoffs temperature & salinty contents initilisation 379 380 !
Note: See TracChangeset
for help on using the changeset viewer.