Changeset 5393
- Timestamp:
- 2015-06-10T13:40:35+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5377_UKMO1_CICE_coupling_GSI7/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r5390 r5393 463 463 464 464 ! Sea ice surface skin temperature 465 DO j pl=1,ncat466 CALL nemo2cice(tsfc_ice(:,:,j pl), trcrn(:,:,nt_tsfc,jpl,:),'T',1.)465 DO jl=1,ncat 466 CALL nemo2cice(tsfc_ice(:,:,jl), trcrn(:,:,nt_tsfc,jl,:),'T',1.) 467 467 ENDDO 468 468 … … 749 749 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 750 750 !! IF (heat_capacity) THEN 751 !! DO j pl = 1,ncat752 !! CALL cice2nemo(Tn_top(:,:,j pl,:),tn_ice(:,:,jpl),'T', 1. )753 !! CALL cice2nemo(keffn_top(:,:,j pl,:),kn_ice(:,:,jpl),'T', 1. )751 !! DO jl = 1,ncat 752 !! CALL cice2nemo(Tn_top(:,:,jl,:),tn_ice(:,:,jl),'T', 1. ) 753 !! CALL cice2nemo(keffn_top(:,:,jl,:),kn_ice(:,:,jl),'T', 1. ) 754 754 !! ENDDO 755 755 !!! Convert surface temperature to Kelvin
Note: See TracChangeset
for help on using the changeset viewer.