--- MITgcm_contrib/dgoldberg/streamice/STREAMICE_ADV.h 2012/03/29 15:59:20 1.1 +++ MITgcm_contrib/dgoldberg/streamice/STREAMICE_ADV.h 2013/06/08 22:15:33 1.2 @@ -2,19 +2,19 @@ #ifdef ALLOW_STREAMICE - COMMON /STREAMICE_ADV_FIELDS_RL/ - & hflux_x_SI, hflux_y_SI, - & hflux_x_SI2, hflux_y_SI2, - & h_after_uflux_SI, h_after_vflux_SI - _RL hflux_x_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL hflux_y_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL hflux_x_SI2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL hflux_y_SI2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL h_after_uflux_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL h_after_vflux_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) +! COMMON /STREAMICE_ADV_FIELDS_RL/ +! & hflux_x_SI, hflux_y_SI, +! & hflux_x_SI2, hflux_y_SI2, +! & h_after_uflux_SI, h_after_vflux_SI +! _RL hflux_x_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) +! _RL hflux_y_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) +! _RL hflux_x_SI2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) +! _RL hflux_y_SI2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) +! _RL h_after_uflux_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) +! _RL h_after_vflux_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) #endif /* ALLOW_STREAMICE */ CEH3 ;;; Local Variables: *** CEH3 ;;; mode:fortran *** -CEH3 ;;; End: *** \ No newline at end of file +CEH3 ;;; End: ***